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INTRODUCTION TO THE Z80 

Before you can understand how the Exidy really works, a few fun- 
damentals have to be covered about the architecture of the Z80 
MPU (Microprocessing Unit). First of all, let's discuss the concept 

of -hoc- 



Hex, Binary, and Decimal 

"Hex" is short for hexadecimal. This is a number system based on 
sixteen, not 10 as we are used to (decimal). In decimal, we have ten 
possible digits, 0, 1, 2, . . ., 8 t and 9. In hex, we have sixteen. Of 
course the first ten are through 9 as with decimal. But there are six 
more, A, B, C, D, E, and F. "A" means 10, "B" means 11, U C" 12, 
TT 13, ■£• 14, and "P 15. So a number like 1CB3 makes sense in 
hex. In decimal numbers each digit represents a *power" of 10, 
namely "ones," "tens," "hundreds," and "thousands." For example, 
the decimal number 1895 means 1 thousands plus 8 hundreds plus 
9 tens plus 5 ones, or 

1895=1x1000+8x100+9x10+5 
= 1000 +800 +90 +5 

In hex however, each digit (0 through F) represents a power of 16, 
"ones," "sixteens * "two hundred fifty sixes," and "four thousand 
ninety sixes." For example, the hex number 1895 can be written as 
in the example above 

1895=1x4096+8x256+9x16+5 
=40% +2048 +144 +5 
= 6293 (decimal) 

Another hex number 3CF1 can be seen as 

3CF1 = 3x40%+ 12x256+ 15x16+1 
= 12288 +3072 +240 +1 
= 15601 (decimal) 

The reason why understanding the hex number system is so impor- 
tant is because the majority of computers today, big, mini, and 
micro, are based entirely on hex. This includes the Z80 MPU, which 
is the basis of the Exidy Sorcerer. Its machine language instructions 
are in hex; its arithmetic is done in hex; characters typed on the 
keyboard, displayed on the screen, placed on cassette tape and 
printed on a printer are all in hex. 

If you understand hex, then "binary" (the number system based on 
2) should present no problems. There are only 2 digits possible to 
make any binary number, and 1. These binary cfigits are called 
"bits." A bit can be or 1 . Each of these digits represents a power of 
2 (1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 40%, 8192, 
16384, and 32768). So a number in binary like 001 1 1 1001 1 1 10001 
is 

0011110011110001=0x32768+0x16384 + 1x8192+1x40% + 
1x2048 +1x1024 +0x512 +0x256 + 



1x128 +1x64 


+ 1x32 


+1x16 + 


0x8 +0x4 


+0x2 


+1 


= 8192 * +40% 


+ 2048 


+1024 + 


128 +64 


+ 32 


+16 +1 


= 15601 (decimal) 







But that means, according to the previous example, that since 
15601 decimal is also 3CF1 hex, then , 

0011110011110001 (binary) = 3CF1 (hex). 

This is no mere coincidence. Let's see why. If we Jook at a "4-bit 
binary number" (i.e., a number in binary made up of only four digits 
of 0*s and l*s), then the smallest it could be is 0000 (0 decimal), and 
the largest it could be is 1111 (15 decimal or F hex). Thus every 
digit in hex, 0-F, can be expressed exactly as a 4-bit binary number: 



Binary 


Decimal 


He 


0000 








0001 


1 


1 


0010 


2 


2 


0011 


3 


3 


0100 


4 


4 


0101 


5 


5 


0110 


6 


6 


0111 


7 


7 


1000 


8 


8 


1001 


9 


9 


1010 


10 


A 


1011 


11 


B 


1100 


12 


C 


1101 


13 


D 


1110 


14 


E 


1111 


15 


F 



In other words, a hex digit is really just another way of writing 4 bits, 
or, every 4 bits of a binary number can be grouped as 1 hex digit. 
Let's see how that works with the numbers we just did. 
001110011110001 can be broken into groups of 4 bits (right to 
left) as follows: 



0011- 1100 1111 0001 
If each 4-bit group is viewed individually, they calculate to 

0011= 3 decimal (3 hex) 

1100=12 decimal (C hex) 

• • 1111 = 15 decimal (F hex) 

0001= 1 decimal (1 hex) 

So it can be written 

0011 1100 1111 

3 C F 

So hex and binary are actually the same thing, with different group- 
ings. Another example, to write 0F8D hex in binary 

F 8 D hex 

0000 1111 1000 1101 binary 

which, when pieced back together, becomes 

0000111110001101 =0F8D. 



0001 
1 



binary 
hex 



((!/» 



Bits, Bytes, Addresses, and "K 

Enough about decimal, hex, and binary. We now know how 
numbers are written on the Z80. Let us take a look at how memory 
is organized. 

The smallest unit of information that can be placed in the memory 
of just abput any computer made, including the Z80, is a bit, the 
same bit we saw earlier. This only holds a or a 1 however, and is 
too small for normal numerical use. So a larger unit was created, 
called a "byte." A byte is just eight bits or two hex digits grouped 
together. 

So a byte can contain a number from 00000000 binary (00 hex, 
decimal) to 11111111 binary (FF hex, 255 decimal). Each unique 
byte in the Exidy's memory space is assigned a four-hex digit (two- 
byte) number 'called an "address." This address identifies the par- 
ticular byte and its contents. Addresses start at 0000 hex and end 
at FFFF hex (65535). Thus, the Exidy (Z80) can have ilp to 65536 
bytes of memory. Another way programmers like to put this is to 
use the term "K." A "K" is just another way of saying the number 
1024 decimal (400 hex). So 65536. boils down to 64K (64x1024 = 
65536). 



RAM versus ROM 

Since we a*e on the subject of memory, there are two types. In one 
type the contents can never be changed. Information can only be 
"read" from it. This is called Read Only Memory or.ROM (compu- 
terists love abbreviations or acronyms). ROM is usually used to con- 
tain programs or data which is to be present in the same state all the 
time. For example, the Exidy Monitor program is in ROM (starting 
at memory byte address E000) and Exidy BASIC is in ROM (the 
ROM-PAC starting at address C000). ROM can have its contents 
"burned in" permanently at the factory, or can be burned in once by 
the programmer (called PROM or Programmable ROM), or can be 
erased by strong ultraviolet light and burned in over and over again 
(called EPROM or Eraseable PROM). 



Static versus Dynamic 

The above two terms are usually only applied to RAM. Static RAM 
has the ability to hold its contents indefinitely as long as electrical 
power is applied. Dynamip RAM, on the other hand (in milliseconds 
usually), loses or leaks its contents, and the data must be re-written 
or refreshed to the RAM often enough to keep the data from disap- 
pearing altogether. Typically static RAM requires more power, is 
more expensive, but is faster. The Exidy and many other Z80 based 
systems use dynamic RAM because of power and cost considera- 
tions, and also because the Z80 MPU is well-suited to interface to 
dynamic RAM (e.g., it can be made to do the RAM refreshing). 



However, for programmers to write and run programs, we need 
memory which we can change or modify the contents. This is called 
Random Access Memory or RAM. When the size of an Exidy's 
memory is given (e..g., 8K, 16K, 32K), this number applies only to 
RAM, or user-modifiable memory. All Exidys have the same ROM 
area potential. So a 16K Exidy has 16x1024 or 16384 bytes of 
RAM. 



Z80 ARCHITECTURE 

The 280 microprocessor is an 8-bit based machine. In other words, 
its data flow and arithmetic is usually on a 1-byte basis. It can ad- 
dress up to 64K bytes of memory. On the Exidy, a maximum of 
32K bytes of this can be placed onboard (in the keyboard unit), 
while another 16K can be located as ROM for the Monitor and 
various ROM cartridges. 

In addition to having 64K of possible memory, the Z80 has twenty- 
two registers. These are special high speed memories which reside 
on the MPU chip, and are used for arithmetic and program logic 
functions. These are all 1 byte in size unless otherwise noted 



Table 1. Z80 Registers 



A — the accumulator. This is the central register 

F — the flags register. Each bit represents a CPU status; e.g., the 

tt Z" bit is on if the A register contains 0; the "S" bit is on if A 

is negative 

— general use register 

— general use register 

— general use register 

— general use register 

— general use register 

— general use register 

— 2-byte register containing the current stack address 

PC — 2-byte program counter containing the address of the next 
instruction to be executed. 

— 2-byte index register. Usually will contain an address to be 
used with a constant offset or displacement. 

— 2-byte index register with the same type of use as IX. 

— register used to allow processing of external interrupts to 
the 280 from the S-100 bus 

— refresh register which can be used to provide dynamic RAM 
refreshing operations. 



Registers A, F, B, C, D, E, H, and L have an alternate register called 
A', F, B', C, D\ E, H\ and L\ Only one set can be used at a time, 
while the other set allows space to save important program informa- 
tion. The EXX and EX Z80 instructions are used to flip back and 
forth between them. Also some registers can be connected together 
to create 2-byte, 16-bit register pairs. These are AF, BC, DE, and HL. 

For more detailed information on the Z80 MPU I the reader is re- 
ferred to the Zilog publication "Z80 CPU, Z80A CPU Technical 
Manual," product number 03-0029-01. 



EXIDY SORCERER 
COMPUTER ARCHITECTURE 



Exidy Devices and Ports 

The Sorcerer has the following I/O devices or ports. Listed also is 
the Monitor command^) to activate each: 



Table 2. Sorcerer I/O Port Assignment 



a. the keyboard 

b. the video screen 

c. cassette tape # 1 

d. cassette tape #2 

e. serial RS-232 interface 

f. parallel interface 

g. Centronics printer interface 



SET1 = K 

SETO=V 

SETI=S,SETO=S 

SETI=S,SETO=S 

SETI=S,SETO=S 

SETI=P,SETO=P 

SETO=L 



Note that these are onboard ports. This list does not include any 
devices added to the Exidy via the S-100 bus expansion facility. 

The keyboard is implemented as part of the Z80 I/O port number 
FE hex (254), input bits 0-4, output bits 0-3. The video screen needs 
no port but uses the 1920-byte RAM area at address F080 as a 64 
by 30 screen. There is a port FE bit (input 5) indirectly related to 
video processing which signals when vertical retrace is in progress 
on the TV screen. The two cassette interfaces are part of the serial 
interface and provide an audio translation of the digital data suitable 
for recording on tape quite reliably. 



Exidy Serial Port 

The serial port allows data transfer to occur between the Exidy and 
external devices (such as printers, modems, cassette tape, and the 
like). Data travels one bit at a time in a predefined conventional se- 
quence called asynchronous transmission protocol. 

The protocol defines how the data is to look, and the speeds at 
which it is to travel. For example, each 8-bit byte of data is actually 
sent as a 10- or 11-bit stream, sometimes even longer. The 8 bits 
must be preceded by a bit called a start bit, and must be followed by 
one or usually two or more stop bits. These bits also must be sent 
and received at a particular speed, predetermined by the sender and 
receiver. The speed is given in bits per second, or commonly called 
"baud" (derived from Baudot, the name of one of the forerunners of 
terminal communications). Thus, 300 baud means 300 bits per sec- 
ond. Since it takes about 10-11 bits to transmit a byte or character, 
this means about 30 characters per second. The Exidy serial inter- 
face "speaks" this common language, and operates at one of the two 
speeds, either 1200 baud (120 cps) or 300 baud (30 cps). 

The serial port is actually two devices, an RS-232C interface and 
the dual cassette interface. RS-232C is the name given to a widely 
accepted standard of signal voltage and logic levels and the pinouts 
of the 25-pin plug or connector used for cabling between the sender 
and receiver. The asynchronous protocols signals are usually sent 
via this RS-232C standard. Another part of Z80 port FE (output bit 
7) determines whether the serial port is RS-232C (bit on) or dual 
cassette (bit off). Cassette is the default. Output bit 6 controls the 
baud rate (1 = 1200, default, = 300). Port status is placed on port 
FD while data transfer occurs on FC. For example, to connect a 300 



or 1200 baud RS-232C serial printer to the Exidy, follow instruc- 
tions given with the printer and from Exidy. However, the following 
guidelines may be used: 

1. Connect pin 7 of the serial DB25 connector to printer ground 
pin 7. 

2. Connect pin 3 to printer pin 2. 

3. Connect pin 2 to printer pin 3. 

Reset the Exidy, enter the Monitor (BYE in BASIC), enter the com- 
mand SET 0=S, and all output which would have gone to the 
screen will go to the printer, until Reset or SET 0=x is entered (x is 
usually V to return to video). There is also software available from 
Exidy providing a serial driver, and the ability to use the serial inter- 
face to turn the Sorcerer into a dumb terminal connected to another 
computer. Typically a modem and possibly an acoustic coupler may 
be required here. Reverse pins 2 and 3 in the above guidelines for 
this use. 

The cassette interfaces may also be used with motor control. Pins 
12 and 24, 13 and 25 can be used to turn cassette number 1 and 2 
off and on for SAVEs, LOADs, FILEs and BATCHs commands. 
Pins 15, 5 and 20, 16, 18, and 21 are the mike input, auxiliary in- 
put, and earphone output connections. Note that cassette number 1 
has these mike and ear connections duplicated as RCA plugs on the 
back of the Sorcerer. 



Exidy Parallel Port 

The parallel port differs from the serial port mainly in that data is 
transferred an entire byte at a time. This is ideal for fast printers and 
sometimes even some floppy disk units. The Sorcerer also provides 
an interface to the popular Centronics printer. The same parallel 
port is used, but unique software "handshaking" is done by the 
Monitor I/O driver. An example of the handshaking which occurs 
between the Sorcerer and printer might be the following "electronic 
conversation* over port FE, the parallel interface status port: 

Printer: "Wait, I'm still busy, send no data." 

"OK, now you can send." 

Exidy: "Here it is, let me know when I can send more." 

The 8-bit (and at times status) rides on port FF. 

To successfully hook up a Centronics or Centronics-like printer to 
the parallel port, again follow the printer's and Exidy's instructions. 
Here are some additional guidelines: 

1. Connect parallel pins (DB25 connectors again) 5-7 and 16-19 
(data bits 0-6) to the printer's data lines 0-6 (see printer's pinouts). 

2. Connect pin 4 (data output bit 7) to the printer's input strobe line, 
a negative (true is low, false is high) pulse indicating data is ready 
to be transmitted. 

3. Connect pin 1 to the printer ground. 

4. Connect pin 25 (input data bit 7) to the printer busy line, in- 
dicating the printer is not ready to accept any data (probably still 
printing previous data). 

5. Pins 2 and 3 (output accepted and available) and others may 
also be required depending on the printer model. 

Once this is done, Reset the Exidy, enter the Monitor, type in the 
command SET = L, and from that point on all output will be 
routed to the screen and the printer, until Reset occurs or until 
another SET O = x command is entered. 



CASSETTE TAPE FILE FORMAT 

When a SAVE, LOAD, or FILES command is done from the 
Monitor, or when a CSAVE or CLOAD is done from BASIC, files 
are processed from the cassette tape device on the serial interface. 
This applies to both cassette # 1 and #2. Cassette tape motor-on 
routine can be found at E024 (-8156), motor-off at E027 
(-8153), casette save at E02A (-8151), and cassette load at 
E02D(-8148). 

Cassette files on the Exidy have the following appearance, whether 
at 300 or 1200 baud: 

1. Inter- file tone 

a. a high frequency tone always output by the cassette interface 
when data is not present. 

2. 101-byte leader 

a. 100 bytes of 00 (nulls) 

b. 1 byte of 01 (control-A or SOH, Start-Of-Header). 

3. 16-byte file header (see description in MWA above). 

4. CRC for header 

a. 1 byte CRC for error checking. Details later. 

5. Up to 256 bytes of data. 

6. CRC for above data block (1 byte again). 

7. Repeat 5 and 6 until data exhausted. The last data block may be 
short (less than 256 bytes). CRC still follows. 

8. Inter- file tone (same as before the file). 

This format is used by both BASIC and machine language files. It is 
depicted pictorially as follows: 



Table 3. Cassette Tape File Format 



Inter-file tone 



101-byte leader 



16-byte header 



header 



CRC for header 



101-byte leader 



256-byte block #1 



CRC for block # 1 



data 



256* byte or short 
block #n 



CRC for last block 



Inter- file tone 



To LOAD or CLOAD a file, or to perform a FILES command, tru 
Monitor scans the tape (whichever is on) for the leader. Then the 
header is read into the MWA and the "FOUND . . . " message is sent 
to the current SEND device. The data portion is then either skipped 
(wrong file, or FILES command) or loaded. All CRCs are always 
validity checked for any of these commands. Thus, to check all the 
bits on an entire tape for errors, it is sufficient to perform a FILES 
command. 

Note that the default tape transfer rate is 1200 baud. A much more 
reliable method of saving data is to use 300 baud. However it will 
take four times longer to SAVE and LOAD, and use a lot more tape. 
This is accomplished with the SET T= 1 command. 

Still, even at 1200 baud, the Sorcerer tape system is the best Fve 
come across. It is the most reliable, and with its file headers, it is the 
easiest to use. The user does not even need a recorder with a tape 
digital counter to find files with these headers. The cleverness of the 
tape system makes the Exidy basic offering Oust cassette, no expan- 
sion to S-100 capability, diskette, etc.) a very attractive low-priced 
system. 

Tips on Loading and Saving Files 
on Tape 

The following hints can be used to minimize problems with cassette 
recording o!f files: 

To Load: 

1. Use a relatively inexpensive cassette recorder ($30- $60) with 
ALC (Automatic Level Control). This means you have no con- 
trol over the volume or tone of the recordings. AH are made ex- 
actly the same way. Strangely enough, experience shows that ex- 
pensive recorders work worse. 

2. Connect the MIC wire to the microphone input. Do nor use the 
auxiliary input on most recorders. The signal will be too weak. 

3. Connect the EAR wire to the earphone or monitor jack. 
To Play: 

1. You must find the correct volume and tone for your recorder. As 
a first guess, set volume and tone to 7-8 out of 10, or 3/4 high. 

2. Listen to the tape play through the speaker. The intra-file tone 
should be louder than normal listening volume, maybe even as 
loud as possible without distortion and noise. The data should 
sound high-pitched and clear, like static. 

3. Try loading a file. Tinker with volume and tone until at least a file 
header is read without a CRC error ("FOUND ..." message ap- 
pearsX Now you are close enough to the correct settings. 

4. Once found, the correct settings should be able to be used for all 
tapes recorded on that recorder. 

Cassette Tape Error Checking 

The CRC (Cyclic Redundancy Check) method is used to detect bit 
transmission errors in cassette data recordings. The CRC is stored 
at MWA + 46. CRC checking is done with this algorithm: When the 
"file is first written to tape (i.e., when the 101-byte leader is written), 
the CRC is 0'd. For every data byte, in program or header, the cur- 
rent CRC is subtracted from the data (data-CRC), and the ones 
complement of this is used as the next CRC for the next byte (i.e., 
FF- (data -CRC), or all the bits are flipped — Os become l's, and 
l's 0's). When the file or block is completely written, the current 
CRC is writen as the final byte. Note: this is why BASIC programs 
grow by one byte every time they are loaded and re- saved. When the 
file is loaded again, the CRC is calculated a*gain as above, and is 
compared to the last byte of the block (the CRC written).- A match 
means no errors (almost always), while a mismatch means an error. 
This is identical in BASIC files as in machine language files, since 
the same Monitor routines are used to write/read tapes. 



Programmable Graphics 
Character Set 

Each byte in memory can contain exactly one character which can be input from the keyboard, displayed on the video, printed, etc. Thus, there are 
256 possible combinations of these characters (00-FF, 0-255). These codes can be mapped as follows on the Exidy. Again, codes are given in 
both hex and decimal- 



Table 4. Character Codes 


Code 




. 


Description 




Code 




* 
Description 






00-7F 


0-127 




128 standard ASCII characters:. 


D7 


215 


/V — f 


p 




00-1F 

20 

21 2F 
3039 
3A40 


031 

32 

33-47 
4857 
58-64 


^ 


32 ASCII control characters (e.g., CR, 

LF, etc.). 

ASCII blank 

ASCII punctuation 

ASCII numbers 0-9 

ASCII punctuation 


D8 
D9 
DA 
DB 

DC 
DD 
DE 


216 
217 
218 
219 
220 
221 
222 


in L 

/ V aw 


i 

] 

A 
S 
D 

F 
G 




415A 


65 90 




ASCII upper case A Z 


DF 


223 


t& A 


H 




5B60 
61-7A 


91-96 
97-122 


ASCII punctuation 
ASCII lower case a-z 


E0 

El 
E2 
E3 


224 
225 
226 
227 


fit -* 
( 7 ♦ ****** & 


1 1 
J 
K 

L 




7B-7F 


123-127 


ASCII punctuation and "delete" 
character (7F) 




80-BF 


128-191 


64 standard Exidy keyboard graphics. 


E4 


228 


{,?•& ""' 


@ 










These are obtained by depressing the 


E5 


229 


U* Br 


i 










GRAPHICS key 




E6 


230 


»t «* 




(underscore) 


COFF 


192-255 


64 programmable graphics characters. 


E7 


231 


C 7 JL. 
fc/J 


Z 










These are obtained by depressing 


E8 


232 


X 








- . i 


SHIFT and GRAPHICS keys: 


E9 
EA 


233 

234 


c 

V 




CO 


192 




GRAPHIC SHIFT 1 


EB 


235 


■It/ 


B 




CI 


193 


*2~ I 




2 


EC 


236 


iX\ 


N 




C2 


* 194 


1 * 3 i 




3 


ED 


237 


7?+ 


M 




C3 


195 


1 ' ' 




4 


EE 


238 


11 — b 


, (comma) 


C4 


196 




5 


EF 


239 


\T5—? 


.(period) 


C5 


197 


1 i < 1 


i 


6 


F0 


240 


7$ —r 


/ (slash) 


C6 


198 




t 


7 


Fl 


241 


77 f 


— 


(on numeric pad) 


C7 


199 


. S 1 


i 


8 


F2 


242 


7t+ 


7 


(on numeric pad) 


C8 


200 


3 (f O 


i 


9 



F3 


243 




8 


(on numeric pad) 


C9 


201 


7 7 


• a 


F4 


244 


9 


(on numeric pad) 


CA 


202 


3? 


t 




F5 


245 


i$i £J 


+ 


(on numeric pad) 


CB 

CC 


203 
204 


in 


- Y 


- (hyphen) 
< 


F6 
F7 


246 

247 


T3 1 , 


4 
6 


(on numeric pad) 
(on numeric pad) 


CD 


205 






(tab) 


F8 


248 


^isa 


X 


(on numeric pad) 


CE 


206 




Q 


F9 


249 


i ^4 


1 


(on numeric pad) 


CF 


207 


^ > 




w 


FA 


250 




2 


(on numeric pad) 


DO 


208 


^b- 




E 


FB 


251 


3 


(on numeric pad) 


Dl 


209 


ttf r 




R 


FC 


252 


?? J 


+ 


(on numeric pad) 


D2 


210 


fi T 




T 


FD 


253 


?*'*. 





(on numeric pad) 


D3 


211 


hi r 




Y 


FE 


254 


1 ft-q 


• 


(on numeric pad) 


D4 


212 


ff * 




U 


FF 


255 


ti/r 


— 


(on numeric pad) 


D5 - 


213 


*1J 




I 












D6 


214 


/^k 




o 













10 



Each of the preceeding 64 characters can be defined to be any design 
or shape desired. Each consists of 8 bytes in memory, or 64 bits. 
These sets of 8 bytes (64 of them) start at address FEOO (-512). 
On the screen each character consists of 8 lines of 8 dots, or 64 
dots. Thus, each of the 8 bytes defining the character in memory 
corresponds to One of the 8 lines of the character in the display, and 
each of the 8 bits in that byte is a dot in that line. If the bit is on (1), 
then the dot is white. If the bit is off (0), then the dot is black. For ex- 
ample, a circle with a dot in the middle could be defined as a 
character. It would require defining each of the 64 (8x8) dots as 64 
(8x8) bits in memory. So 



decimal 





00000000 


binary 


00 hex 





•♦xxx«»» 


00111000 




38 


56 


•x- ••x* • 


01000100 




44 


68 


x ... ,. x . 


10000010 




82 


130 


X- -X--X- 


10010010 




92 


146 


x x» 


10000010 




82 


130 


• x»» »x» • 


01000100 




44 


68 


••xxx«»» 


00111000 




38 


56 



The first 128 characters (00-7F, ASCII) are not under user control. 
The information required to display these characters is located in 
PROM at F800-FBFF (IK). The next 64 characters (80-BF, Exidy 
Graphics) can be programmed if desired, but they are already pro- 
grammed to be standard keyboard graphics. The 64x8 (512) bytes 
for these are located at FC00-FDFF. This RAM can be changed at 
any time by the programmer to redefine these characters. However, 
the Monitor refreshes this area from its ROM every time a RESET 



occurs, or whenever the video screen is cleared (e.g., when CLEAR 
is pressed, or when a Form Feed ASCII control is displayed). This 
will clobber any such modifications. 

The last 64 characters (CO-FF) are completely under programmer 
control. They are always displayed as nonsense until they are "de- 
fined" by turning on and off the bits of the 8 bytes associated with 
the character. These bytes are in RAM from FEOO to FFFF ( -512 
to -1). For example, the character CO (192) is a FE00-FE07 
(-512 to -505), CI (193)atFE08-FE0F(-504to -497),C2at 
FE10-FE17, and so on, until FF (255) is at FFF8-FFFF ( -8 to - 1). 
The formula to calculate where the 8 bytes in RAM begin for any of 
these 128 characters which can be programmed (80-FF) is (assume 
V is the character code of the character to be programmed): 

FC00 + (8 * (c - 80)) hex, or 

(8 • (c - 128) ) - 1024 BASIC decimal 

where V ranges from 80-FF (128-255). 

For example, to print a "blot" (all dots on, a white square) on the 
screen followed by the above circle with the dot in the middle, the 
following BASIC program can be written. The blot will be made 
from the first programmable graphic 192, and the circle/dot will be 
193: 

10 FOR 1=0 TO 7: REM 8 BYTES AT FEOO (-512) FOR BLOT 
20 POKE -512 + 1.255: NEXT: REM TURN ON ALL BITS/DOTS 
30 FOR 1=0 TO 7: REM 8 BYTES AT FE08 (-504) FOR CHR # 193 
40 READ J: REM GET A BYTE VALUE FROM THE TABLE AS ABOVE 
50 POKE -504 + 1, J: NEXT: REM TURN ON CORRECT DOTS 
60 PRINT CHR$(192);CHR$(193): REM PRINT THE 2 NEW CHRS 
70 DATA 0,56,68,130,146,130,68,56: REM DATA CHR # 193 
80 END 



EXIDY KEYBOARD 
ARCHITECTURE 



The keyboard on the Exidy has a clever physical (hardware) and 
logical (software) architecture. 

It actually resides on small parts of input and output ports FE (254). 
It is composed of a potential 80 keys, organized as sixteen rows of 
five columns each. For each one of the sixteen rows of possible keys 
(0-F, 0-15, output port FE bits 0, 1, 2, and 3) any one of the five col- 
umns of possible keys can be depressed (04, input FE bits 0, 1,2, 
3; and 4). 



When CONTROL is pressed — this produces ASCII control 
characters, some numerics, and cursor movement; no graphics. 

When GRAPHICS is pressed — this is standard Exidy keyboard 
graphics (codes 80-BF). If SHIFT is also pressed simultaneously, 
the programmable graphics codes CO-FF are used. 

If none of the above are pressed — standard lower case and nu- 
merics and punctuation are used; no graphics or cursor move- 
ment. *• 



For example, row column is ESC, row 9 column 3 is a P, and 
row 15 column 4 is the = key on the numeric pad. Not all 80 
possibilities are in use (about three are meaningless). Each of the 
valid possibilities can assume any one of five states: 

1. When SHIFT is depressed — upper case, punctuation; no nu- 
merics or graphics; curso&,arrow keys operative. 

2. When LOCK is depressed — this is a CAPS LOCK, so upper 
case letters, numerics, and punctuation are valid, but no graphics 
or cursor movement keys. 



The Monitor ROM area EC1E-EDFD contains the tables necessary 
to allow' the keyboard input routine to translate the row/column of 
the key pressed into a 1-byte character codes, depending on which 
of the five states the keyboard is in. These tables are actually broken 
down into six tables total: the first is a what-to-do table to calculate 
the state etc., and the last five are the character codes for the five 
states. 
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Performing Keyboard Input 

To get keyboard input from the user from BASIC or Z80 Assembly 
Language without INpUT statements, a very useful subroutine can 
be used. In fact, this can be done such that the program sees^each 
character as it is typed without having to wait (or ever get) a carriage 
return (RETURN). For example, a program can react and respond 
immediately to input commands as they are typed. 

From BASIC, characters can be input with the following example 
assembly routines. Place this simple and relocatable Monitor 
keyboard routine driver-interface at, say, location FO (240). It can go 
anywhere, but FO is a good start. 



FO: 


CD15E0 


SCAN: CALL QCKCHK 


;Control-C pressed? 


F3: 


C2FADF 


JPNZ BASIC 


;Yes, back to BASIC (warm) 


F6: 


CD09E0 


CALL RECEIVE 


;No, get input character 


F9: 


28F5 


JRZ SCAN 


;Nothing yet, continue 


FB: 


32FF00 


, LD (CHRKA 


;Got it, save at loc FF 


FE: 


C9 


' RET 


;Retum after USR call 


FF: 


00 


CHR: NOP 


; Where byte stored for BASIC 



The routine first checks to see if CTL-C, ESC, or RUN/STOP have 
been entered, meaning the user wants to quit. If so (Not Zero) back 
to READY level. If not, the current RECEIVE device (usually 
keyboard) is scanned for a character. If none (Zero), scanning con- 
tinues. If found, the character is put at location FF (255). Control is 
then return to BASIC after the USR call. The following example 
BASIC program can use this routine: 

10 PRINT "ENTER CHARACTER" 

20 POKE 260,240: POKE 261.0: REM LOC 00F0 IS 240,0 

30 Z = USR(2): REM CALL SCAN 

40 REM IF WE GET HERE LOC FF HAS A CHARACTER 

50A$=CHR$(PEEK(255)) 

60 IF A$ = M S W THEN STOP: REM STOP IF S ENTERED 

70 PRINT A$: REM ECHO THE CHARACTER 

80 GOTO 20: REM LOOP TILL S ENTERED 

These are both simple routines that can be modified to be as fancy 
as possible. 

From Z80 machine language there is no need to necessarily store 
the character in RAM. It is returned in the accumulator by the 
RECEIVE routine. 

The above programs accept their input from the current RECEIVE 
device. To set this device the SET I = x command is used. 



Cursor Positioning 

Cursor jx>sitioning is the process of moving the cursor (that 
underscore character) on the screen to locations other than where it 
usually is when standard BASIC or Monitor video output is done 
{e.g., PRINT, DUMP, etc.). This is very useful especially when data 
is to be placed on the screen but not in a line by line fashion. For ex- 
ample, if a graphic diagram is displayed and certain segments are to 
be labelled, the cursor can be moved directly to each one and the 
output generated in a random fashion on the screen. Also many 
times the usual output statements will destructively erase what is 
already on the screen. For example, if something is to be printed in 
the middle of a line but there is information already in the beginning 
of that line, an output statement will erase it. Cursor positioning to 
the middle will not. 



To perform cursor positioning from Assembly Language or BASIC 
is quite simple: 

1. Decide what line the cursor is to be on. There are 30 numbered 
0-29. Call this "1". V 

2. Decide what column of that line the cursor is to be on. There are 
64 numbered 0-63 on each line. Call this V. 

3. Calculate 64x1. This is the offset from the beginning of the 
screen to the first column (0) of line 1. This is easy in BASIC 
(Q = 64*L). In machine language, just shift 1 left six times, or, 
assuming 1 were in register E: * 



;DE = 01 

;1TMES TO SHIFT 

X: SLA E ;SHIFTE 

;SMFTD 

;6 TIMES, DE= 64x1 

Or if 1 were in register pair HL, just execute the ADD HL,HL in- 
struction six times in a row to double 1 six times, or multiply by 
64. 

4. Find the MWA. This is described in detail earlier. For the ex- 
amples below, assume register IY points to the MWA for 
Assembly, and AD for BASIC. 

5. At offset 68 hex (IY +68 or AD + 104) is 2 bytes where 64x1 is 
to be stored: 



LD 


D,0 


LD 


B,6 


SLA 


E 


RL 


D 


DJNZ 


X 



LD 
LD 



0Y+68),E 
(IY+69),D 



or in BASIC, POKE the low part (low byte) of the number 64x1 
(64x1 MOD 256) into AD + 104, and POKE the high part (byte) 
of 64x1 (INT(64xl/256)) at AD 4- 105. Now, 64x1 MOD 256 is 
just the remainder when 64x1 is divided by 256, and this can be 
calculated as follows in BASIC: 

905L2 = 64 4 L 

910 MD=L2 - INT(L2/256)'256 

To do the POKEs, assuming AD is already pointing to the MWA: 

915POKEAD+104,MD 

916 POKE AD+ 105,INT(L2/256) 



6. At offset 6A in the MWA (IY+6A, AD + 106) is 2 bytes where 
V is to be stored. If it were in register A: 

LD (IY + 6A),A 7 4 
LD (IY + 6B),0> - 1 

or in BASIC 

930POKEAD+106,C , 
940 POKE AD+ 107,0 * 

BASIC also requires you to put c at location 1BE (398) in the 
BCA: 

950 POKE 398,C 

7. Call the Monitor cursor move routine. This will replace the cur- 
rent cursor with the character which was at that spot 
{"underneath" it), move the cursor to the requested spot and save 
the character there. From Z80: 

CALL E9CC 

From BASIC the USR technique must be used: 

960 POKE 260,204: REM HEX CC 
965 POKE 261,233: REM HEX E9 
970 X-USR(X): REM CALL E9CC 



8. Now a standard output statement like PRINT can be done and 
the output will begin at this new cursor location. 



With this new technique, horizontal and vertical tabbing can also be 
done 



Horizontal tabbing may .also be done in Basic directly with the use 
of the TAB(n) function. 



Vertical tabbing may be done with Control-Z (down arrow) 
characters. For example, to tab to line 15 (0-29), home the cursor 
with a Control-Q — hex 11 — 17 decimal — and Control-Z fifteen 
times (Control-Z is hex 1A, decimal 16): 



2220 PRINT CHR$(17); : REM HOME 

2240 FOR 1=1 TO 15 

2260 PRINT CHR$(26); : REM DOWN ONE LINE 

2280 NEXT 

PRINT TAB(n) can then be used to tab horizontally on that line. 
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BASIC Floating Point Format 

Numbers in BASIC are not integers. Fractions are allowed. Thus, 
the decimal point can move. For example, the decimal point "floats" 
when 13.25 is divided by 10 — 1.325. It is from this idea that the 
term ""floating point" was derived. 

These numbers are stored by BASIC in four bytes of memory. Each 
number has three parts: 

1. the sign ( + or -); 

2. the "mantissa" (the actual number, but with the point shifted to 
the left of the leftmost 1 bit of the number). So the number 127 
decimal (7F, 01111111) is a mantissa if it is thought of as 
.1111111; 

3., the ''exponent," which is how much the point had to be shifted in 
the number to produce the mantissa with the point at the left. 

This all sounds very complex, but it actually is not. Let's take an ex- 
ample, say 13.5 decimal. In hex this would be equal to D.8 
(13 +8 * 1/16). Remembering that hex is just groups of four bits, the 
binary equivalent of 13.5 would be 1101.1000. To create a man- 
tissa from this, we must shift the point (in this case, the "binary 
point/ not the decimal point) to the left four places, producing 
.11011000. The exponent can now be calculated. It is always 
positive if the mantissa shift was to the left, negative if to the 
right, and zero if no shift was necessary. Thus, the exponent in 
this example would be +4 (four to the left). However, we are not 
quite done. Rather than worrying about how to express a negative 
number exponent, 128 decimal (hex 80) is always added to the ex- 
ponent to produce the final result. Thus, the final exponent is 84 
(132). Now we come to the sign. Since the digit to the far left of the 
mantissa is always 1 (because we shifted until that was the case), 
then the sign can be stored in this bit without losing any informa- 
tion. If the number is positive or zero, then the sign bit will be 0. If 
negative, then the sign bit will be a 1. So the mantissa for 13.8^ 
.11011000 changes to .01011000. To assemble this number, first 
we put the exponent 84 then the mantissa filled out to the right to fill 
out the four bytes: 



10000100 .01011000 00000000 00000000 

Now if we ignore the point, since it is always in the same place, and 
convert to hex, we have: 



If the original number were —13.5 instead, then nothing would 
change except the sign. That is the mantissa would change from 
.01011000 to .11011000, so the new number would be 

84D80000 

In the reverse direction, to convert floating point back to decimal, 
let's use 88FF4000 as an example: 

1. Examine the exponent (88) and subtract hex 80 (128). In this ex- 
ample 88-80 = 08. But this may produce a negative number. 

2. Examine the mantissa with the implied point (.FF4000). 

3. If the left bit (high order, the one next to the point) is on (it is), 
then the number is negative. Otherwise it is positive. 

4. In either case, turn that bit on. 

5. Shift the point according to the exponent from step 1 (08 here). If 
plus, shift right, if minus, left, if zero, no shift. Since we have + 8, 
shift the point right 8 bits. 

.111111110100000000000000 

i i i i i > i.i * 

6. The number is now FF.4000, and with the sign, -FF.4000, or 
-255.25 decimal. 

The only special case is the number 0. Here the exponent is 00. 
Other examples are: 

1815 - hex 717 = 8B62E000 

1 1 = 81000000 

-1 -1 = 81800000 

-.5 -.8 = 80800000 

= 0061000 



The last idea that must be mentioned is that the number is actually 
stored in memory in reverse, so the number eemmnnpp is stored 
ppnnmmee. For example, decimal 1815 in the above example: 

00E628B 



exponent + 128- 



padding 

x 

84580000 

TtT 



implied point 



sign/mantissa 
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BASIC 
CONTROL AREA 



This is a discussion of the workarea in RAM used by BASIC, called 
the BASIC Control Area, or BCA. The BCA begins at address 100 
(256), and has an overall appearance like 



Table 5. BASIC Control Area 


100 

1D5 

a 

b 

c 
d 
e 








^ 


BASIC 

Control * 

Information 




BASIC 
Program 
Source 


BASIC FV ^ 
Program 
Variables 


BASIC in 
Program 
Arrays 


FREESPACE 


STACK 


BASIC S3f 

String 

Space 


Monitor 
Stack 


MWA 









In detail, RAM locations 100-l^E (256*334) are copied from the 
BASIC ROM {address C258) when a BASIC Cold Start occurs (i.e., 
after Reset or a PP X command is entered). The BCA described 
below includes only those areas which are of direct use to the pro- 
grammer. It is intentionally sketchy, especially due to the great 
number of fields. 



Address Description 

100/256 Three byte JUMP instruction to C06B (Warm Start). 
Done when PP command is entered without operands. 

103/259 Three-byte JUMP to C7E5 default (displays "FC 
ERROR" message). This is the USR function hook. See 
BASIC Assembly interface section later for details. 

Two-byte address of top of string space (letter V 
above) or the beginning of the BASIC stack. This is set 
by the BASIC CLEAR n command. 

BASIC line input buffer and Direct Mode execution 
line. 

Current line column number. 

Two-byte address of instruction in the BASIC program 
about to be executed when Control-C break is entered. 
This could be in the middle of a line of multiple 
statements separated by colons. 

Two-byte BASIC line number of current line. 

Two-byte address of the next full line to execute from 
the link pointer of the current line (see below). 

Two-byte address of the end of the program and the 
beginning of the BASIC Program Variable Area (letter 
V above). 

Two-byte address of the end of the Variable Area and 
the start of the BASIC Program Array Area (letter V 
above). Whenever changes are made to the BASIC 
program (adding, deleting, updating lines) the above 
two addresses are used to define a new Variable and 
Array area below the new BASIC program. Thus, a 
program cannot be continued with old variable/array 
values once a change has been made. 

Two-byte address of the end of the Array Area and the 
pointer to free space (room for expansion — letter U CT). 

Two-byte address of the last used data operand of a 
DATA statement so that the next READ will find the 
appropriate item. This is reset by a RESTORE com- 
mand. 

Four-byte input parameter (usually floating point for- 
mat) to the USR function, and output parameter from 
the USR function. If USR (3.5) is called, 3.5 is passed 
to the subroutine in floating point. See a later section 
for BASIC/Assembly interfacing details. 

Beginning of all BASIC programs. 



145/325 

147/327 
70 
18E/398 
1B1/433 



1B3/435 
1B5/437 

1B7/439 
1B9/441 

tn 



IBB/443 
1BD/445 



1BF/447 



1D5/469 
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tf& '/.**• J/*- 



rr ft 



M, J/& — />- t? 



FJA 
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Ml/T^- 



Format of BASIC String Variables 
and Arrays 

A BASIC string variable is similar to a floating point variable. It is 
also six bytes long. It looks like: 



Offset 

+ 

+ 2 

+ 3 
+4 



Description 

Two-byte variable name. The high order bit is always 1. 

One-byte current length of the variable length string 
value. 

00 

Two-byte address of the string itself. It resides either in 
the string space or in the program statement itself (e.g., 
1005 A$ = "HIT 



A string array is identical to a numeric array except for two very im- 
portant features: 

1. The high order bit of the array name is always 1. 

2. The four byte value is not floating point format but the length/00/ 
stringaddress fields described above. All dimensioning remains 
the same. 



Format of BASIC Program 
Statements 

The first line of every BASIC program begins at location 1D5. AH 
BASIC lines have the following variable length format: 

Offset Description 

+ Two-byte link pointer address of the next sequential 

full line in the program. This is independent of multiple 
statements on one line (separated by colons). The last 
line of the program points to location 0000 to indicate 
the end. 

+ 2 Two-byte BASIC line number of the line in integer 

binary (a number between 0000 and FFF9, 0-65529). 

4- 4 The BASIC statements), variable in length. Let us say 

they are V bytes long. Each BASIC "reserved worcT 
such as GOTO, IF, END, DIM, PRINT, etc. is encoded 
here to a one-byte character not belonging to the ASCII 
character set (i.e., hex codes greater than 7F). This 
speeds up processing and saves program memory 
space. When the program is LISTed, these special 
bytes are decoded back into their corresponding 
reserved words. 

+ 4 + n Byte of 00 indication the end of this line and beginning 
of the next. 



Format of BASIC Floating Point 
Variables and Arrays 

A BASIC floating point variable resides in the BASIC Program 
Variable Area. Each one takes a constant six bytes: 

Offset Description 

+ Two-byte ASCII variable name. The high order bit is 

always 0. The letters are also reversed as usual. 

+ 2 Four-byte floating point value currently held by this 

variable. See the format description earlier. 

BASIC arrays all reside together after the variables in the BASIC 
Program Array Area. A floating point array is variable in length. It 
takes a minimum of seven bytes and looks like this: (Note: an array 
in Exidy BASIC can have any number of dimensions; call that 
number V. Each can have any number of elements). 



Offset 

+ 

+ 2 

+ 4 
+ 5 

+ 7 



Description 

Two-byte array name. The high order bit is always 0. 
The letters are reversed. 

Two-byte total array length minus four (i.e., the length 
of the array starting after these two bytes). This is used 
to find the next array in the area quickly. 
One-byte number of dimensions (we called it n). 
Two-byte size (number of elements) in the first dimen- 
sion. 
Two- bytes sie of the second dimension (if any). 



+5+2(n-l) Two-byte size of the nth dimension. 
+ 5 + 2n Beginning of a list of contiguous four-byte floating 
point array elements. These are in Row order. 
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BASIC to Z80 Assembly 
Language Interface 

To call Z80 Assembly Language subroutines from Exidy BASIC, 
certain general conventions and procedures must be 'followed: 

1. The machine language program must reside either in the first 
256 bytes of memory (00-FF, 0-255 — usually a bad idea) or in 
the BASIC free space area described earlier. Either BASIC con- 
trol, program, variables, arrays or strings, or Monitor/video con- 
trol'resides in the rest of memory. This is the only way a BASIC 
and machine language hybrid can coexist without complicated 
machinations such as putting the machine language routine right 
after the BASIC program and fooling BASIC into thinking that it 
is part of the program. The BASIC free space is the best and 
easiest choice. However there are some potential problems: 

a. Free space is dynamic. As the program changes, as variables/ 
arrays are added or change size, the start of the free space 
moves. A machine language program placed too close to the 
end of the Array Area can get walked on. The end of the free 
space changes too, since the BASIC stack (or string space) 
will grow and shrink, especially with the CLEAR command. 
Since this change is usually not as radical as that of the start 
of the free space, I recommend putting the program close to 
the end of the free space. But there are now other considera- 
tions. 

b. The free space ends near HIMEM of the machine (where the 
BASIC stack is). This changes with each different Exidy size. 
So a generalized subroutine designed to run on any machine 
(probably with several BASIC programs) would either have to 
be relocatable (able to be moved without affecting anything), 
or there would have to be different versions of the program to 
run on different size machines. This of course would allow 
the BASIC program to use the maximum amount of free 
space. A subroutine designed for a particular BASIC pro- 
gram could be placed at the top of the free space as long as 
the BASIC program does not grow too much. 

c. If the program is placed at the end of the free space an ex- 
cessive CLEAR n BASIC statement could kill it. 

d. Thus, no matter where the program is placed, certain restric- 
tions have to be made to coexist with BASIC. 

2. Assume a good location is found, and the Z80 program is writ- 
ten and relocated to that address in RAM. Assume this address 
to be 312A hex (12586), To call this subroutine from BASIC, it 
must already be in memory, and the USR function must be used. 
When BASIC executes it, it converts the argument to floating 
point and places this number in the four-byte USR parameter 
area at 1BF-1C2 (447-450). It then calls the subroutine at loca- 
tion 103 (259). For example, when the statement 

2030X = USR(25.7) 
is executed, 25.7 is placed at 1BF and a CALL is made to 103. 

3. Now*, by default 103 contains the following 280 instruction 

JP C7E5 

or in machine language — hex C3E5C7. This unconditional 
JUMP to the instruction at address C7E5 in BASIC ROM, This 
default subroutine prints the error message U FC ERROR" (func- 
tion call invalid) and stops the program. To call your subroutine, 
you must change the JUMP instruction address to the address of 
the beginning of your program. Again the instruction after a 
BASIC Cold Start looks like 



Address Contents Description 

103/259 C3 JUMP Z80 operation code 

104/260 E5 Low part of address 

105/261 C7 High part of address 

Leave the C3 JUMP, but change the address. If your program 
was at 312A as we said, you must make the jump to 312A, or 

JP 312A 

or in machine language — hex C32A31. It is a good idea to 
change the two address bytes every time the subroutine is to be 
. called. Use the BASIC POKE statement for this (which requires 
decimal operands). Put 2A (42) at location 104 (260), and put 
31 (49) at location 105 (261): 

10000 POKE 260,42 
10010 POKE 261,49 
10020 XX = USR(Y) 

When the USR function is executed in line 10020, your routine 
at 312A will be called. It could use the value in variable Y placed 
at 1BF as input. It could also put another value back as output. 
This value will be returned to the BASIC statement as the 
"result" of the USR function. In the above example, the value 
returned will be placed in variable XX. Note that the short 
BASIC routine shown above can easily be made into a GOSUB 
subroutine by adding the statement 

10030 RETURN 
Thus, to call your routine you need only say 
GOSUB 10000 

4. To terminate your subroutine, one of four things can be done: 

a. Return directly to the Monitor and exit BASIC altogether, 
e.g., for catastrophic errors. For Monitor Warm Start jump to 
address E003. For Cold Start use E000. The user will be 
shown the Monitor prompt (">"). 

b. For lesser errors detected, give an FC ERROR message, stop 
the program, and return to BASIC READY level. This is 
simply done by jumping to C7E5. 

c. If errors are detected and your routines have displayed the er- 
ror message(s), you can s^op the program and exit directly to 
BASIC READY level. For a BASIC Warm Start jump to 
DFFA, for a Cold Start DFFD. 

d. Of course you can return normally to BASIC so it will con- 
tinue the program where it left off after the USR statement. 
This is simply done by the RET instruction. Fill in the 
parameter at 1BF first, if necessary. 

Note that all the Monitor subroutines are available to the Z80 
subroutine, including turning the tape on, reading a file, and turning 
it off; or getting input from the keyboard. See the section on Monitor 
Subroutines later. 

Debugging of the 280 routine is a little more difficult than debugging 
BASIC programs. BASIC loses control of the situation and of what 
you are doing while your routine is running, and can't "keep an eye 
out" for potential errors as it can within a BASIC program. Great 
care, desk checking, and modular programming are a must. 

An assembly language routine can also use as input and output ac- 
tual BASIC variables and arrays. Using the pointers in the BCA 
described earlier, the program can find the variable/array lists and 
scan for the one(s) with the correct name(s). The using the floating 
point or string formats, the values can be examined or changed. 
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Monitor Workarea 

This is a detailed description of the area of memory shown above at 
locations 1F91, 3F91, or 7F91, depending on the size of the 
machine. 

The MpnitorJ A/grjcarga, hereafter called MWA, is the area in RAM 
used by the Exidy Monitor program to save important information 
needed for its successful operation. This area is always located right 
next to the Monitor Stack, and is always placed at the very top of 
available RAM space. Por an 8K machine, the top of RAM is at 
1FFF (8191), for 16K 3FFF (16383), and for 32K 7FFF (32767). 
This number, Himem, is placed by the Monitor in the two bytes at 
address F000-FOO1 (-4096 to -4095) in the video driver RAM 
space. Remember as with most micros, the two bytes are reversed 
in storage. For example, for a 16K Exidy, FOOO-F001 contains 
FF3F, not 3FFF. The address of the MWA can be obtained from 
this HIMEM address so that you don't have to worry about what 
size machine your jirogramming is running on. To do this, you must 
get the HIMEM value at F000-F001 and subtract 6E (110) or add 
FF92 (-110). For example, in Z80 Assembly Language: 
LD HL,(FO0O) ;GET HIMEM 

LD BC.FF92 ;GET -110 

ADD HL,BC ;HL POINTS TO THE MWA 

Or in BASIC: 

100 AD=256*PEEK(-4095)+PEEK(-4096) 

110 IF AD> 32767 THEN AD=AD-65536 

120AD=AD-110 
There is also a Monitor subroutine designed to do this calculation 
for you. It is at address El A2 ( - 7774). When CALLed, it puts the 
MWA address in Z80 register IY. Example: 

CALL E1A2 ;IY POINTS TO THE MWA 

A detailed map of the contents of the MWA will now be given. This 
will be in the same fashion as the overall memory map listed above, 
except that the addresses will be shown in a different form. First the 
offset in hex from the beginning of the MWA will be given. This can 
be used in Z80 Assembly Language as a displacement away from 
an index register such as IY, which points to the MWA. For exam- 
ple, if the displacement is listed as +41 to a particular field, then 
that field can be addressed in Z80 by (IY+41) or by 41(IY). The 
second part of the address is given as an absolute address of the 
field in RAM. Since the whole MWA moves dependent on the size of 
the machine, the first two hex digits of these addresses can change. 
The last two digits are always the same. So only these last two 
digits are listed. The first two will either be IF (8K), 3F (16K), or 7F 
(32K). Note: if the user coldstarts the Sorcerer (Resets) with a size 
other than the above sizes (such as 21239 bytes, not even a whole 
multiple of a K) then the above addressing scheme is not applicable 
and only the displacement from the index register scheme may be 
used. 



Exidy Monitor Memory Map . 

To get an overall picture of how the Exidy utilizes the 64K of (possi- 
ble) memory, a "memory map" is given. 

Memory is cut up into pieces and each piece is used for a different 
purpose. In the map below the address of the first byte of each piece 
is listed along with the use of that area. The address is given in both 
hex and a form of decimal that is usable directly in BASIC with the 
PEEK and POKE commands. Note that some of these decimal 
numbers are negative. If the address*exceeds 32767 (hex 7FFF), 
then BASIC requires that the "twos-complement" form of the 
number be used, or the negative form. For numbers greater than 
7FFF, 65536 is subtracted from the number. 

Be aware also that this is an overall wide angle view of memory. 
Detailed maps of certain areas (such as the Monitor Workarea and 
the BASIC Control Area) are included. 



Table 6. Monitor Memory Map 


Address 


Description 


0000 





256-byte Z80 Restart space (RAM) 


0100 


256 


User RAM start, begin BASIC Control Area 
(RAM) 


1F00 


7936 


8K Monitor Stack end (8K machines) (RAM) 


3F00 


16128 


16K 


7F00 


32512 


32K 


1F90 


8080 


8K Monitor Stack start (8K machines) (RAM) 


3F90 


16272 


16K 


7F90 


32656 


32K 


1F91 


8081 


8K Monitor Workarea start (8K machines) 
(RAM) 


3F91 


16273 


16K 


7F91 


32657 


32K 


1FFF 


8191 


8K End User RAM (8K machines) (RAM) 


3FFF 


16383 


16K 


7FFF 


32767 


32K 


cooo 


-16384 


Begin 8K ROM PAC (e.g., begin BASIC) (ROM) 


E000 


-8192 


Begin 4K Monitor Program (ROM) 


F000 


-4096 


128-byte video driver space (RAM) 


F080 


-3968 


1920-byte video screen (64x30) (RAM) 


F800 


-2048 


IK standard Exidy ASCII alphanumerics 
(00-7F) (PrtOM) 


FC00 


-1024 


512-byte Exidy keyboard standard graphics 
character set, accessed by depressing 
GRAPHICS key, character codes hex 80-BF 
(128-191) (RAM) 


FE00 


-512 


512-byte User Programmable graphics 
character set, accessed by depressing SHIFT 
and GRAPHICS keys, codes hex CO-FF 
(192-255) (RAM) 


FFFF 


-1 


End Exidy address space (64K) 



Table 7. Monitor Workarea 



Address Description 



00 



91 

-ffO 



+ 3C 
Co 
+ 3D 



CE 
-If 



-3E 
*3k 



+ 3F 



£* 



41 



t>* 



+ 43 D4 
47 « 3 



+44 



+ 45 



+ 46 D7 



70 



60-byte Monitor command input buffer. Any com- 
mand entered from the current RECEIVE device 
(SET I = x) such as the keyboard, serial or parallel 
ports is placed in this area. It is left-justified, and ter- 
minated by an ASCII carriage return character (hex 
code OD, 13 decimal, hereafter called a CR). The 
Monitor subroutine at E13A (-7878) builds this 
buffer from the input. 

Port FE interface status. 

Serial interface and dual cassette interface baud 
rate save area. 1200 baud is indicated by hex 40, 
300 baud by the value 00. Serial port or cassette 
baud rates are set to the default of 1200 baud (hex 
40) by the Monitor COLD Reset routine (at E000, 
-8192) and by the Monitor USER Reset entry 
point (at E003, -8189). Such a coldstart is done, 
for example, when the RESET keys are depressed. 
This byte is also set by the SET T=0 and SET 
T=l commands (at Monitor routines at E5A2, 
-6750). 

CF SEND delay time. This value is used to delay before 
- Hf a SEND (to video, serial, or parallel) is done. The 
actual delay is about 1500 times this value machine 
cycles. This delay can therefore range form to ap- 
proximately 400000 cycles. The value is set by the 
SET S = n command. 

DO Current SEND routine address. The default address 
_ cf 7 set by COLD starts is the video routine at E9F0 
( - 5648). It can be changed by the SET O = x com'"' 
mand. 

D2 Current RECEIVE routine address. The default is 
— </5 set by COLD starts to be the keyboard routine at 

EB1C, - 5348. It can be changed by the SET I = x 

command. 

Batch mode status. 00 = normal input, 
nonzero = batch mode. This byte is used by the 
Monitor command input routine (El 42) to deter- 
mine whether commands are to be gotten from the 
RECEIVE device or from the batch tape serial port. 
The OVER command turns this off and the 
BATCH command turns this on. 

Monitor output prompt character. The default is the 
character " > " or ASCII code 3E (62) set by COLD 
starts. It can be changed by the PROMPT x com- 
mand. It is output to the SEND device every time a 
Monitor input command is being requested (at 
EOED, -7955). 

Tape status, baud rate, motor control save area. 
This is zeroed when the tape's) is turned off, and 
otherwise remembers the status of the tape baud 
rates (00 = 300, 40 = 1200) and motor controls 
(10 = motor #1 on, 20 = motor #2 on). 

Tape input and output CRC (Cyclic Redundancy 
Check).^The CRC is used to check whether the 
data has been transmitted successfully to/from the 
tape. This technique is described in detail in a 
subsequent section. 



ch, 



D5 



D6 



V7 



Address 

+47 D8 
7 / -37 



+ 4C 

+ 4D 

"7-7 



+4E 
IT 

+ 50 



+ 52 



PY 



+ 57 
?1 



+ 67 
f'3 



°-V 



Description 

Beginning of the 16-byte tape output file header 
area. The first 5 bytes here contain the 5-character 
ASCII file name as entered on the SAVE or CSAVE 
command. It is left justified and padded to the right 
with ASCII blanks (code 20, 32 decimal). 

File header id, usually hex 55. 



DE File type. Usually C2 (194) for a BASIC save file. If 

? - the high order bit (80, 128 decimal) is on, the file 

cannot be automatically executed with the LOADG 

command. This is set by the SET F = xx command. 

DF 2- byte length of the file in bytes. 

El 2-byte program loading address. For BASIC files, 
~1Q this is always 01 D5 (469) because BASIC pro- 
grams always start at that address. See the BASIC 
Control Area description following. For other pro- 
grams such as those in machine language, this ad- 
dress is the "ssss" of the command "SAVE name 
ssss eeee." 

E3 2-byte program "go-address" for auto execution 
— £/* files. The Monitor will automatically begin execu- 
tion of the program at this address with the 
LOADG command. This address is set by the SET 
X = nnnn command. 



E5 3 bytes 
- £ G header. 



of reserved space, ending the output tape 



E8 16-byte tape input header area. The format is iden- 
-2 3 tical to that of the area at +47. This area is filled in 
from reading the tape for commands such as 
CLOAD, LOAD, FILES, and so on. 

F8 Character under the cursor. Since the cursor is an 
- 7 underscore character (ASCII code 5F, 95 decimal), 
it actually replaces the character at the cursor loca- 
tion. This hidden character is saved to be put back 
when the cursor is moved. The save is done by 
E9CC (-5684), and it is replaced by E9E8 
(-5656). 



+ 6C 



+6D 



F9 2-byte line number where the cursor is times 64. 
' 6 This ranges from 0x64 (0) to 29x64 (1856), and is 
the offset from the beginning of the screen to the 
cursor line start. 

FB 2-byte cursor column number (0-63). When added 

- V to +68 the actual cursor offset into the screen is 
—;■---: found. 

FD Last character entered from the keyboard. This is 

- - used for the processing of the REPT (repeat) key 

logic. This character is entered to the keyboard in- 
put routine about every 30000 machine cycles as 
long as the REPT key is depressed. It is always the 
last key entered, and is saved and used by the 
keyboard processing routine at EB1C (-5348). 

FE * Two bytes of reserved space. This brings us to the 
■-I end of the MWA, and in fact the end of user RAM. 
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Monitor Subroutines 

The Exidy ROM Monitor is just packed with very well-written and useful subroutines which can be called from BASIC and assembly language. All 
are resident in the 4K ROM between locations E000 and EFFF. This is a brief description of all the useful routines, and how to interface them. 
Here the address will be given in hex of course, but will also be given as a two-part decimal number in the order necessary to POKE into the USR 
JUMP vector at locations 260*261. 



Table 8. Monitor Subroutines 



Address Description 

E000 0,224 Monitor Cold Start (on RESET). 

E003 3,224 Monitor Warm Start (on BYE command). 

E006 6,224 Monitor User Cold Start — similar to E000 except 
HL is input containing what the user wants to use 
a^HIMEM. 

E009 9,224 RECEIVE: returns N2 and a character from the 
current RECEIVE device in the accumulator (A), 
or 2 if no character yet. 

E00C 12,224 SEND: sends character in A to the current SEND 
device. 

SERIAL IN: reads a character into A from the 
serial input device or from cassette tape. 

SERIAL OUT: writes character from A to serial/ 
tape. 

QCKCHK: returns NZ if Control-C or ESC (RUN/ 
STOP) is depressed, otherwise it returns Z. 

KEYBOARD: the RECEIVE routine if SET I = K 
(default) See E009. 

VIDEO: the SEND routine if SET 0= V (default). 
See EOOC. 

PARALLEL IN: the RECEIVE routine if SET 
I = P. 

PARALLEL OUT: the SEND routine if SET 
= P. 

CENTRONICS OUT: the SEND routine for SET 
= L 

CASSETTE MOTOR CONTROL ON: will rum 
motor on and set the baud rate of the requested 
cassette. MWA + 3D must contain the baud rate 
(00 = 300, 40 = 1200) and reg B must contain the 
cassette number (1 or 2). 

39,224 CASSETTE OFF: turns off both tapes. 

42,224 TAPESAVE: Save memory onto tape. MWA+50, 
MWA + 51 must contain the memory address 
where SAVEing is to start. It must also be pushed 
on the stack. DE must contain the ending address. 
HL must point to a byte containing a CR (hex OD). 
MWA + 47 through MWA + 4B must contain the 
ASCII file name; MWA + 4D must contain the file 
type; MWA + 52, MWA + 53 the GO address, if 
any. 

E02D 45,224 TAPE LOAD: load a file into memory from tape. 
MWA + 47 through MWA + 4B must contain the 
file name to load. If a LOADG is to be done, a Z 
flag must be on the stack, otherwise an NZ Sag. 
Then if the program name is specified, put NZ in 
the flags, otherwise Z (i.e., load the next file on the 
tape). 

E13A 58,225 MONITOR INPUT: will put the command in the 
command input buffer at MWA + 0. IY must point 
to the MWA. MWA + 43 must contain (not 
Batch). 



E00F 


15,224 


E012 


18,224 


E015 


21,224 


E018 


24,224 


E01B 


27,224 


E01E 


30,224 


E021 


33,224 


E993 


147,233 


E024 


36,224 



E027 
E02A 



Address 

E1A2 162,225 

E1BA 186,225 

E1C9 201,225 

E1D4 212,225 

E1E8 232,225 

E1ED 237,225 
E205 5,226 
E23D 61,226 



Description 

Will find MWA and put the address in IY without 
causing screen flicker (only does so during vertical 
retrace on the TV to avoid DMA conflicts). 

SENDUNE: sends an entire line to the SEND 
device, HL points to the line, which must end in a 
00. LFs are always sent when CRs are found. 

ERROR: sends "ERROR" followed by the 
diagnostic message {which is pointed to by HL). 

OVER command processor (CP). Handles all 
work necessary for the OVER command. 

Sends 4-byte ASCII equivalent of the 2-byte in- 
teger in DE. If DE = 3F29, then "3F29" is sent. 

Send 2-byte ASCII of byte in A. 

Send a CR followed by a LF, CRLF. 

Convert a 1-4 byte ASCII hex number (pointed to 
by HL) into DE. If HL points to A93 followed by a 
"Monitor Delimiter" (e.g., blank, CR, etc.), then DE 
will contain 0A93. This is the reverse process of 
the routine at E1E8. 

Send as many blanks as the number in B. 

DUMP CP 

ENTER CP 

MOVECP 

GOCP 

SET CP 

SAVECP 

FILES CP 

LOAD CP 

PROMPT CP 

BATCH CP 

CREATE CP 

LISTCP 

TEST CP 

PPCP 

Clear the video screen and refresh/rewrite the 
graphics character set at FC00. 

E9CC 204,233 Move the cursor to line/column specified in the 
MWA. See cursor positioning described previously. 

E9D6 214,233 Find the cursor. HL is set to the screen address 
(which starts at F080) and DE is set to the column 
number. 

EB10 16,235 Refresh character set at FC00. 

EC1E 30,236 Keyboard input tables (to EDFD). See keyboard 
section. 

EDFE 254,237 Character set for the 64 standard graphics 80-BF 
to be copied to FC00. 



E2D2 
E4D3 
E538 
E562 
E597 
E5A2 
E638 
E6B9 
E78A 
E845 
E858 
E85C 
E884 
E8A1 
E98A 
E9B1 



210,226 

211,228 

56,229 

98,229 

151,229 

162,229 

56,230 

185,230 

138,231 

69,232 

88,232 

92,232 

132,232 

161,232 

138,233 

177,233 



MONITOR 
LISTINGS 
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EXIDY STANDARD MONITOR SOFTWARE 



07/26/78 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 



* EXIDY STANDARD MONITOR * 
WW**************************** 



DEVELOPED FOR EXIDY INC* 
BY JOHN K* BORDERS JR* 



Z80 BASED MONITOR SOFTWARE 
WITH FULL CASSETTE AND VIDEO 
DRIVER ROUTINES* SELF-SEEKING 
RAM STORAGE AND STACK ROUTINES* 



VERSION 1*0 



DATEDJ 7/26/78 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



0000 
0000 
0000 



0000 



0000 
0000 
0000 



OOOD 
OOOA 
001B 
0001 
0003 
0008 
0011 
0013 
0017 
001A 
007F 
0020 



FOOO 
0000 
0000 
003C 
003D 
003E 
003F 
0041 
0043 
0044 
0045 
0046 
0047 
0057 

00F8 
FOOO 
F080 
F800 
0067 
0068 
006A 
006C 
0010 
006E 



0000 
0006 
0007 
0009 
OOOB 



0038 i ■ 

0039 i 








0040 i EQUATE 


TABLE 




0041 >• 






/ 


0042 t 








\J \f *y ^3 9 ^fr- ^^^p ^S ^S ^p ^^^p ^p ^p ^p *f^ ^p *f* ^p *I* ^p ^p ^^ ^p ^^^^^p ^p* ^^ ^p ^p ^r ^p ^p ^p ^p ^^ 


0044 r 








0045 f ASCII 


EQUATES 




0046 f 




., 


« 


0047 cr; 


EQU * 


ODH 


fCARRIAGE return 


0048 lf: ; 


EQU 


OAH 


JLINE FEED 


0049 esc: 


EQU 


1BH 


f ESCAPE 


0050 cntrla: 


EQU 


'A'-40H 




0051 CNTRLC: 


EQU 


'C-40H 




0052 cntrlh: 


EQU 


'H'-40H 




0053 cntrlq: 


EQU 


'Q'-40H 




0054 cntrls: 


EQU 


'S'-40H 




0055 cntrlu: 


EQU 


'W-40H 




0056 CNTRLZ: 


EQU 


'Z'-40H 




0057 rubout: 


EQU 


7FH 


fRUB OUT 


0058 space: 


EQU 


20H 


f SPACE 


0059 f 








0060 f RAM POINTERS 




0061 f 








0062 ramtop: 


EQU 


OFOOOH 


f POINTER STORE 


0063 ram: 


EQU 


OOOOH 


f START OF RAM 


0064 buffer: 


EQU 





f INPUT BUFFER 


0065 lineln: 


EQU 


BUFFER+60 


fLINE LENGTH 


0066 tapes: 


EQU 


LINELN+1 


fTAPE RATE 


0067 speeds: 


EQU 


TAPES+1 


J DISPLAY SPEED 


0068 outadd: 


EQU 


SPEEDS+1. 


f OUTPUT ADDRESS 


0069 inadd: 


EQU 


0UTADIH2 


f INPUT ADDRESS 


0070 batchf: 


EQU 


INADD+2 


f BATCH FLAG 


0071 prompt: 


EQU 


BATCHF+1 


f PROMPT CHARACTER 


0072 cmtrfg: 


EQU 


PROMPT+1 


f CASSETTE MOTOR FLAG 


0073 crcbyt: 


EQU 


CMTRFG+1 


fCRC v BYTE 


0074 chead: 


EQU 


CRCBYT+1 


f COMMAND HEADER 


0075 thead: 


EQU 


CHEAD+16 


fTAPE HEADER 


0076 f VIDEO SCREEN EQUATES 


0077 tophrg: 


EQU 


0F8H 




0078 screen: 


EQU 


OFOOOH 




0079 vid: 


EQU 


SCREEN+128 


0080 top: 


EQU 


SCREEN+2048 


0081 vdhld: 

0082 line:^ 


EQU 


THEAD+16 


fCHAR HOLD 


EQU 


VDHLD+1 


fLINE # 


0083 chr: 


EQU 


LINE+2 


fCHAR # 


0084 lstkey: 


EQU 


CHR+2 


fLAST key pressed 


0085 headln: 


EQU 


16 


f HEADER LENGTH 


0086 store: 


EQU 


LSTKEY+2 


fEND OF EQU TABLE 


0087 j 








0088 f CASSETTE HEADER EQUATES 


0089 f 








0090 hname: 


EQU 







0091 htype: 


EQU 


6 




0092 hsize: 


EQU 


7 




0093 HADDRJ 


EQU 


9 




0094 hxeq: 


EQU 


11 
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0000 




0096 f 








0000 




0097 i 








0000 




0098 r 








0000 




0099 f 








0000 




oioo ; 








0000 




0101 


ORG 


OEOOOH 




EOOO 




0102 r 








EOOO 




0103 f 








EOOO 




0104 r 








EOOO 




0105 j JUMP TABLE INTO MONITOR 


EOOO 




0106 ? 






* 


EOOO 




0107 r 








EOOO 




0108 f 








EOOO 


C3 62 EO 


0109 cold: 


JP 


INITC 


rCOLD START 


E003 


C3 E8 EO 


oho warm: 


JP 


INITW 


fWARM START 


E006 


C3 77 EO 


oiii user: 


JP 


INITU 


?USER START 


E009 


C3 30 EO 


oii2 recede: 


JP 


CHRIN 


f INPUT CHARACTER 


EOOC 


C3 45 EO 


oii3 send: 


JP 


CHROUT 


y OUTPUT CHARACTER 


EOOF 


C3 DA E2 


oii4 intape: 


JP 


TAPEIN 


rTAPE INPUT 


E012 


C3 EE E2 


oils outape: 


JP 


TAPOUT 


rTAPE OUTPUT 


E015 


C3 Dl EA 


oii6 quikck: 


JP 


QUIK 


JCNTRLC CHECK 


E018 


C3 1C EB 


oii7 keybrd: 


JP 


CHRINi 


.KEYBOARD INPUT 


E01B 


C3 FO E9 


oiis video: 


JP 


CHR0T1 


5VIDE0 OUTPUT 


E01E 


C3 76 E7 


oii9 parlin: 


JP 


PAR IN 


f PARALLEL INPUT 


E021 


C3 7F E7 


0120 parlot: 


JP 


PAROUT 


J PARALLEL OUTPUT 


E024 


C3 8A E2 


0121 cmoton: 


JP 


MOTRON 


iTURN CASSETTE MOTOR ON 


E027 


C3 AF E2 


0122 cmotof: 


JP 


MTROFF 


rTURN CASSETTE MOTOR OFF 


E02A 


C3 5A E6 


0123 bassav: 


JP 


SAVBAS 


?ENTRY FOR BASIC CSAVE 


E02D 


C3 99 E7 


0124 baslod: 


JP 


LODBAS 


? ENTRY FOR BASIC CLOAD 


E030 




0125 f 








E030 


FD E5 


0126 chrin: 


PUSH 


IY 


?WE DESTROY THESE 


E032 


E5 


0127 


PUSH 


HL 


* , ■ ; •■ , - 


E033 


CD A2 El 


0128 


CALL 


GETIY 




E036 


21 41 EO 


0129 


ld 


HLf CHRINR 


?FOR RETURN 


E039 


E5 


0130 


PUSH 


HL 




E03A 


FD 6E 41 


0131 


LD 


Lf (IY+INADD)?GET ADDRESS 


E03D 


FD 66 42 


0132 


LD 


H> (IY+INADD+1) 


E040 


E9 


0133 


JP 


(HL) 


?G0 DO IT 


E041 


El 


0134 chrinr: 


POP 


HL 


f RESTORE 


E042 


FD El 


0135 


POP 


IY 




E044 


C9 


0136 


RET 






E045 




0137 f 








E045 


FD E5 


0138 chrout: 


PUSH 


IY 


rWE DESTROY THpE 


E047 


E5 


0139 


PUSH 


HL 


E048 


F5 


0140 


PUSH 


AF 




E049 


CD A2 El 


0141 


CALL 


GETIY 




E04C 


FD 66 3E 


0142 


LD 


Hf(IY+SPEEDS)fGET DISPLAY SPEED 


E04F 


2E 01 


0143 


LD 


L>1. 


.FINISH OFF 


E051 


2B 


0144 outdly: 


DEC 


HL ; 


5DELAY 


E052 


7C 


0145 


LD " 


A,H 


J ARE WE THROUGH? 


E053 


B5 


0146 


OR 


L 




E054 


20 FB 


0147 


JR 


NZr OUTDLY 


fNOPE-' 


E056 


Fl 


0148 


POP 


AF 


rGET 'EM BACK 


E057 


21 41 EO 


0149 


LD 


HLf CHRINR 




E05A 


E5 


0150 


PUSH 


HL 




E05B 


FD 6E 3F 


' 0151 


LD" 


L><IYfOUTADD) 


E05E 


FD 66 40 


0152 


LD 


H* (IY+OUTADD+1) 


E061 


E? 


0153 


JP 


(HL) 





EXIDY 


STANDARD MONITOR 


SOFTWARE 

• 
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E062 








0154 


f 








E062 








0155 










E062 






i 


0156 










E062 








0157 


f . 


.-INITIALIZE ROUTINES, 


E062 








0158 










£062 








0159 










£062 








0160 










E062 






, 


0161 










E062 








0162 




# 




* 


E062 








0163 




• 






E062 








0164 


y 


INITC = 


COLD START 


- FINDS 


E062 








0165 






TOP OF RAM 


AND SETS 


E062 








0166 






STACK AND STORAGE THERE 


E062 








0167 




INITW = 


WARM START 


- USES 


E062 








0168 






STACK FROM 


INITC 


E062 




^ 




0169 




INITU = 


USER START 


- USES 


E062 








0170 






HL FROM USER AS TOP OF 


E062 








0171 






RAM LIKE INITC 


E062 








0172 










E062 








0173 










E062 








0174 












E062 




0175 


INITC 


:: EQU 


$ 




E062 


3E 


FF 




0176 




LD 


ArOFFH 


? INITIALIZE CASSET 


E064 


D3 


FD 




0177 




TOUT 


OFDHfA 




E066 


16 


00 




0178 




LD 


TWO 




E068 


21 


00 


00 


0179 




LD 


HLfRAM 


f POINT BEG RAM 


E06B 


7E 






0180 


INITC 


;2: LD 


Af(HL) 


fGET IT 


E06C 


46 






0181 




LD 


Bf(HL) 


5TWICE 


E06D 


2F 






0182 




CPL 




*TURN AROUND 


E06E 


77 






0183 




LD 


(HL)tA 


t PUT BACK 


E06F 


BE 






0184 




CP 


(HL) 


?X CHK IT 


E070 


70 






0185 




•LD 


<HL)>B 


JPUT REAL BACK 


E071 


23 






0186 




INC 


HL 


f POINT NEXT 


E072 


28 


F7 




0187 




JR 


Z>INITC2 


t LOOP IF GOOD 


E074 


2B 






0188 




DEC 


HL 


f ADJUST 


E075 


2B 






0189 




DEC 


HL 


f H & L 


E076 


01 






0190 


< 


DB 


1 


fLXI B 


E077 








0191 


« 








E077 








0192 


A 
f 


USER START ENTRY POINT 


' E077 








0193 


A 
f 










E077 




0194 


INITL 


i: EQU 


$ 




E077 


16 


01 




0195 




LD 


D>1 






E079 




0196 


INITUi: EQU 


$ 




E079 


22 


00 


FO 


0197 




LD 


(RAMTOP),HL?USER IS HERE 


E07C 


FD 


2A 


00 FO 


0198 




LD 


IYf (RAMTOP) 


E080 


01 


92 


FF 


0199 




LD 


BCrO-STORE 


E083 


'FD 


09 




0200 




ADD 


IYrBC 


?D0 IT 


E085 


FD 


F9 




0201 




LD 


SP>IY 


? GET A STACK 


E087 


CD 


Dl 


EA 


0202 




CALL 


QUIK 


JSEE IF WARM RESET 


E08A 


C2 


FA 


DF 


0203 




JP 


NZfPWARM 


? YES-GO DO IT 


E08D 


7D 






0204 




LD 


AfL 


? CLEAR RAM! 


E08E 


FD 


E5 




0205 




PUSH 


IY 




E090 


El 






0206 




POP 


HL 


fGET BEGINNING 


E091 


36 


00 




0207 


INITU2: LD 


(HL>>0 


f MAKE ZERO 


E093 


23 






0208 




INC 


HL 


JNEXT 


E094 


BD 






0209 




CP 


L 


?THRU? 


E095 


20 


FA 




0210 




JR 


NZfINITU2 


f NO-KEEP COIN' 


E097 


FD 


36 


44 3E 


0211 




LD 


(IY+PROMPDr'VSINIT PROMPT 
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0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 INITU3J 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 f 

0243 r 

0244 f 

0245 INITWt 
0246 



E09B 


FD 


36 


3D 40 


E09F 


D5 






EOAO 


CD 


Bl 


E9 


E0A3 


Dl 






E0A4 


21 


1C 


EB 


E0A7 


FD 


75 


41 


EOAA 


FD 


74 


42 


EOAD 


21 


FO 


E9 


EOBO 


FD 


75 


3F 


E0B3 


FD 


74 


40 


E0B6 


3A 


FD 


DF 


E0B9 


FE 


C3 




EOBB 


20 


OB 




EOBD 


3A 


FA 


DF 


EOCO 


FE 


C3 




E0C2 


20 


04 




E0C4 


15 






E0C5 


C3 


8D 


E9 


E0C8 


21 


62 


E3 


EOCB 


CD 


BA 


El 


EOCE 


ED 


5B 


00 FO 


E0D2 


CD 


E8 


El 


E0D5 


21 


BC 


E3 


E0D8 


CD 


BA 


El 


EODB 


FD 


E5 




EODD 


Dl 






EODE 


IB 






EODF 


CD 


E8 


El 


E0E2 


21 


D5 


E3 


E0E5 


CD 


BA 


El 


E0E8 








E0E8 








E0E8 










E0E8 




E0E8 


CD 


A2 


El 



LD (IY+TAPES)* 

PUSH DE r 

CALL VIDINT ? 

POP DE f 

LD HLfCHRINl j 

LD (IY+INADD)* 

LD (IY+INADD+1 

LD HL>CHR0T1 r 

LD (IY+OUTADD) 

LD (IY+0UTADD+ 

LD Af(PCOLD) f 

CP 0C3H t 

JR NZrINITU3 ? 

LD A,(PWARM> r 

CP 0C3H 

JR N2fINITU3 

DEC D 

JP PR0MP1 

LD HLfHEDING ? 

CALL MSGOUT 

LD DEf(RAMTOP) 

CALL ADDOUT 

LD HLrHE/AD2 

CALL MSGOUT r 

PUSH IY r 

POP DE f 

DEC % DE f 

CALL' ADDOUT ? 

LD HLfHEAD3 t 

CALL MSGOUT 



40H 
WE 
INI 
GET 
POI 
L 

)*H 
POI 
fL 
l)f 
SEE 
IS 
NO- 
HOW 
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?SET FOR 1200 BAUD 

DESTROY 

T VIDEO BOARD 

BACK- 
NT KEYBOARD 



5 PUT AWAY 
NT VIDEO 

H 

IF PROM PACK IS IN 
THE "JUMP" THERE? 

ABOUT THIS ONE? 



POINT MSG 



f PR I NT RAM TOP 

^FINISH 
PUT STACK- 
IN DE 
ADJUST 
PRINT IT 
LAST ONE 



WARM START ENTRY POINT 



EQU 
CALL 



GETIY 



?G0 GET A VALID IY FROM R* 



EXIDY 


STANDARD MONITOR 


SOFTWARE 
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EOEB 








0248 










EOEB 


* 






0249 










EOEB 






♦ 


0250 


f , 








EOEB 








0251 


J BEGINNING 


OF MAIN PROGRAM 


EOEB 








0252 










EOEB 




'* 




0253 










EOEB 






. 


0254 










EOEB 








0255 








* 


EOEB 






* 


0256 




. 








EOEB 




0257 


staf*t: 


EQU 


$ 


iSTART MAINLINE 


EOEB 


FD 


F9 




0258 




LD 


SPylY 


J REDO STACK 


EOED 


CD 


05 


E2 


0259 




CALL 


CRLF 


*FRESH LINE 


EOFO 


FD 


7E 


44 


0260 




LD 


Af <IY+PROMPT)?LOAD PROMPT 


E0F3 


CD 


45 


EO 


0261 




CALL 


CHROUT 


;& OUT 


E0F6 


CD 


3A 


'El 


0262 




CALL 


LINEIN 


fGET A LINE ' 


E0F9 


FD 


E5 




0263 




PUSH 


IY 


JMOVE IY 


EOFB 


El 






0264 




POP 


HL 


t TO HL 


EOFC 


CD 


25 


E2 


0265 




CALL 


SCAN 


J SKIP DELIMS 


EOFF 


CA 


34 


El 


0266 




JP 


Zv ERRCMD 


JUH-OH NONE! 


E102 


DD 


21 


12 E3 


0267 




LD 


IXrTABLE 


r POINT CMD TBL 


E106 


E5 






0268 


MAIN1J 


PUSH 


HL 


J SAVE 'EM 


E107 


DD 


E5 




0269 




PUSH 


IX 




E109 


06 


02 




0270 




LD 


B>2 


f CHECK 2 CHRS 


ElOB 


DD 


7E 


00 


0271 


MAIN2: 


LD 


Af(IX) 


J LOAD FRM TABLE 


ElOE 


BE 






0272 




CP 


(HL) 


i COMPARE? 


ElOF 


20 


12 




0273 




JR 


NZ*MAIN4 


JNO-TRY NEXT 


Elll 


23 






0274 


■..■:. 


INC 


HL 


i CHECK NEXT CHR 


E112 


DD 


23 




0275 




INC 


IX 




E114 


10 


F5 




0276 




DJNZ 


MAIN2 


fLOOP FOR 2 


E116 


Dl 






0277 




POP 


DE 


t CLEAR STACK 


E117 


Dl 






0278 




POP 


DE 


rl/O PNTR 


E118 


01 


EB 


EO 


0279 




LD 


BC»START 


J PUSH RETURN 


E11B 


C5 






0280 




PUSH 


BC 




E11C 


DD 


6E 


00 


0281 


MAIN3: 


LD 


L>(IX) 


fLOAD 


E11F 


DD 


66 


01 


0282 




LD 


Hf <IX+1) 


i JUMP 


E122 


E9 






0283 


i 


JP 


(HL) 


J ADDRESS 


E123 


DD 


El 




0284 


MAIN4: 


POP 


IX 


} RESET 


E125 


El 






0285 




POP 


HL 


f POINTERS 


E126 


DD 


23 




0286 




INC 


IX 


J NEXT ENTRY 


E128 


DD 


23 




0287 




INC 


IX 


; IN 


E12A 


DD 


23 




0288 




INC 


IX 


f TABLE 


E12C 


DD 


23 




0289 




INC 


IX 




E12E 


DD 


7E 


00 


0290 




LD 


Af (IX) 


fIS IT 


E131 


B7 






0291 




OR 


A 


i THE END? 


E132 


20 


D2 




0292 




JR 


NZfMAINl 


rNO-CONTINUE 


E134 


•21 


E6 


E3 


0293 


errcmd: 


LD 


HL>IVCMSG 




E137 


C3 


C? 


El 


0294 




JP 


WHAT 
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E13A 






E13A 






E13A 






E13A 






E13A 






E13A 






E13A 






E13A 






E13A 






E13A 






E13A 






E13A 






E13A 






E13A 






E13A 






E13A 








E13A 


E13A 


FD 


E5 


E13C 


El 




E13D 


3E 


3C 


E13F 


85 




E140 


4F 




E141 


45 




E142 


FD 


7E 43 


E145 


B7 




E146 


20 


39 


E148 


CD 


30 EO 


E14B 


28 


FB 


E14D 


CB 


7F 


E14F 


20 


ID 


E151 


FE 


OD 


E153 


28 


12 


E155 


FE 


20 


E157 


38 


15 


E159 


FE 


7F 


E15B 


28 


18 


E15D 


FE 


40 


E15F 


20 


06 


E161 


CD 


05 E2 


EI64 


C3 


3A El 


E167 


77 




E168 


23 




E169 


FE 


OD 


E16B 


CA 


05 E2 


E16E 


CD 


45 EO 


E171 


79 




E172 


BD 




E173 


20 


D3 


E175 






E175 






E175 






E175 


78 




E176 


BD 




E177 


28 


CF 


E17? 


3E 


08 


E17B 


CD 


45 EO 


E17E 


2B 




E17F 


18 


C7 



0296 
0297 
0298 
0299 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0308 
0309 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 



LINE INPUT ROUTINE 



THE FOLLOWING ARE COMMAND CHRS: 
<CR> = END LINE 
RUB = BACKSPACE 
= START OVER 

ALL OTHER CHARS SIMPLY INPUT 



linein: 



LINE1 



LINE2J 



LINE2A 



EQU 

PUSH 

POP 

LD 

ADD 

LD 

LD 

LD 

OR. 

JR 

CALL 

JR 

BIT 

JR 

CP 

JR 

CP 

JR 

CP 

JR 

CP 

JR 

CALL 

JP 

LD 

INC 

CP 

JP 

CALL 

LD 

CP 

JR 



$ 

IY rMQVE IY 

HL ? TO HL 

AfLINELN ?SET LINE 

L ' f LENGTH AND 

CA f START IN 

BfL f IN BC 

Ar(IY+BATCHF)?GET BATCH FLAG 



NZ*LINE3 

CHRIN 

Z^LINEl 

7>A 

NZrLINE2A 

CR 

Z>LINE2 

SPACE 

CfLINE2A 

RUBOUT 

ZfBKSPC 
'@' 

NZ,LINE2 

CRLF 

LINEIN 

<HL>* A 

HL 

CR 

ZrCRLF 

CHROUT 

AfC 

L 

NZrLINEl 



?TEST IT 
?G0 BATCH 
J GET 



IT 



BACKSPACE ROUTINE 



bkspc: 



LD 

CP . 

JR 

LD 

CALL 

DEC 

JR 



A,B 

L . 

ZfLINEl 

ArCNTRLH 

CHROUT 

HL 

LINE1 



CONTROL CHR? 
YES! 
RUB? 
YES! 

NEW LINE? 
NO-GO ON 
NEXT LINE 
OVER 

PUT AWAY 
POINT NEtfT 
CAR RET? 
YES-DO IT & RET 
PRINT IT 
TOO MANY 
CHARS? 
NO-CONTINUE 



?ARE YOU 

r AT BEG? 

rYES-IGNORE 



? DELETE CHR 
^CONTINUE 
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E181 


* 






E181 






« 


E181 








E181 


06 


01 




E183 


E5 






E184 


CD 


8A 


E2 


E187 


CD 


59 


E7 


E18A 


CD 


DA 


E2 


E18D 


CA 


D4 


El 


E190 


77 






E191 


23 






E192 


FE 


OD 




E194 


20 


F4 




E196 


CD 


4E 


E7 


E199 


CD 


AF 


E2 


E19C 


36 


00 




E19E 


El 






E19F 


C3 


BA 


El 


E1A2 








E1A2 








E1A2 








E1A2 








E1A2 








E1A2 










E1A2 




E1A2 


C5 






E1A3 


F5 






E1A4 


DB 


FE 




E1A6 


CB 


6F 




E1A8 


28 


FA 




E1AA 


Fl 






E1AB 


06 


08 




E1AD 


10 


FE 




E1AF 


FD 


2A 


00 FO 


E163 


01 


92 


FF 


E1B6 


FD 


09 




E1B8 


CI 






E1B9 


C9 






E1BA 









0008 



0354 f 






0355 f 






0356 f 






0357 LINE3: 


LD 


BfI 


0358 


PUSH 


HL 


0359 


CALL 


MOTRON 


0360 


CALL 


TAPWT 


0361 LINE4: 


CALL 


TAPEIN 


0362 


■ JP 


ZfFINISH 


0363 


LD 


(HL)fA 


0364 


INC 


HL 


0365 


CP 


CR ' 


0366 


JR 


NZfLINE4 


0367 


CALL 


CKCRC 


0368 


CALL 


MTROFF 


0369 


LD 


(HL)fO 


0370 


POP 


HL 


0371 


JP 


MSGOUT 


0372 f* 






0373 f 






0374 f 






0375 f CREATES 


A IY FROI 


0376 f 






0377 f 






0378 getiy: 


EQU 


$ 


0379 


PUSH 


BC 


0380 


PUSH 


AF 


0381 seeifr: 


IN 


ArOFEH 


0382 


BIT 


5fA 


0383 


JR 


ZfSEEIFR 


0384 


•POP 


AF 


0385 


LD 


BfWINPK5 


0386 WFBTZ : 


DJNZ 


WFBTZ 


0387 


LD 


IY»(RAMT 


0388 


LD 


BC»0-STO 


0389 


ADD 


IYfBC 


0390 


POP 


BC 


0391 


RET 




0392 f 






0393 UINPK5J 


EQU 


8 



JSAVE BEGINNING 



fWAIT 
»GET 



FOR NULLS 



»PUT 
J NEXT 
fIS IT? 



J TURN OFF 



fI NEED 

J SEE IF SCREEN IS READY 



fLOAD WAIT CONSTANT 
?WAIT FOR B TO ZERO 



J SET UP IY 



J DELAY FOR 15KC SIGNAL 
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E1BA 








E1BA 








E1BA 








E1BA 








E1BA 








E1BA 








E1BA 








E1BA 








E1BA 








E1BA 








E1BA 








E1BA 








E1BA 








E1BA 








E1BA 








E1BA 








E1BA 








E1BA 








E1BA 










E1BA 




E1BA 


7E 






E1BB 


B7 






E1BC 


C8 






E1BD 


23 






E1BE 


CD 


45 


EO 


E1C1 


FE 


OD 




E1C3 


20 


F5 




E1C5 


3E 


OA 




E1C7 


18 


F5 




E1C9 








E1C9 








E1C9 








E1C9 








E1C9 








E1C9 








E1C9 










E1C9 




E1C9 


E5 






E1CA 


21 


DD 


E3 


E1CD 


CD 


BA 


El 


E1D0 


El 






E1D1 


CD 


BA 


El 


E1D4 


FD 


36 


43 00 


E1D8 


CD 


B4 


E2 


E1DB 


C3 


EB 


EO 


E1DE 








E1DE 








E1DE 








E1DE 


21 


F6 


E3 


E1E1 


18 


E6 




E1E3 


21 


08 


" . 


E1E6 


18 


El 





0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 



UTILITY ROUTINES 



? MESSAGE OUTPUT ROUTINE 


\ SCANS ASCII TEXT FOR J 






- 


RETURN 






CR = 


CRLF 




i ALL 


OTHERS OUTPUT 




msgout: 


EQU 


* 






LD 


Af(HL) 


; GET CHR 




OR 


A 


J IS IT END? 




RET 


Z 


f YES- RETUR 




INC 


HL 


?NEXT 


MSG0T2: 


CALL 


CHROUT 


JPRINT IT 




CP 


CR 


JNEED CRLF? 




JR 


. NZfMSGOUT 


JNO 




LD 


"AfLF 


J DO LF PART 


* 

f 


JR 


MSG0T2 





WHAT" ERROR ROUTINE 



what: 



WHAT1 



finish: 



EQU 

PUSH 

LD 

CALL 

POP 

CALL 

LD 

CALL 

JP 



$ 

HL 

HLtERRMSG 

MSGOUT 

HL 

MSGOUT 



J SAVE MSG ADDRESS 
JPOINT "ERROR - ■ 



JGET BACK ERROR ADDRESS 

JPRINT IT 
<IY+BATCHF)fOf CLEAR BATCH MODE 
MTR0F1 ?TURN OFF TAPE 
START 5RED0 STACK l 



J ERROR ROUTINES 

ERRPAR: LD HL,IVPMSG JPOINT 'INVALID PARAMETER' 

JR WHAT 

ERRCRC: LD ' HL,CRCMSG % POINT "TAPE CRC ERROR 

JR WHAT 
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E1E8 




E1E8 


• 


E1E8 


i 


E1E8 




E1E8 




E1E8 




E1E8 




E1E8 




E1E8 


. 


E1E8 




E1E8 




E1E8 




E1E8 




E1E8 




E1E8 


i 


E1E8 






E1E8 


E1E8 


7A 


E1E9 


CD ED El 


E1EC 


7B 




E1ED 


E1ED 


F5 


E1EE 


E6 FO 


E1F0 


OF 


E1F1 


OF 


E1F2 


OF 


E1F3 


OF 


E1F4 


CD FA El 


E1F7 


Fl 


E1F8 


E6 OF 


E1FA 


FE OA 


E1FC 


38 02 


E1FE 


C6 07 


E200 


C6 30 


E202 


C3 45 EO 



0448 


* 








0449 










0450 










0451 


J ' 






/ 


0452 










0453 


1 HEXADECIMAL OUTPUT 


ROUTINES 


0454 










0455 










0456 




• 




« 


0457 


i .ENTRYS: 






0458 


$ 








045? 


i. ADDOUT 


= OUTPUT 


ADDRESS IN DE 


0460 


i HCHOUT 


= OUTPUT 


BYTE IN A 


0461 










0462 










0463 










0464 


ADDOUT : 


EQU 


$ 




0465 




LD 


A»D 




0466 




CALL 


HCHOUT 


r PR I NT MSB 


0467 




LD 


A>E 


f PR I NT LSB 


0468 


HCHOUT : 


EQU 


$ 




0469 




PUSH 


AF 


?SAVE 


0470 




AND 


OFOH 


t ONLY LEFT HALF 


0471 




RRCA 




fMOVE RIGHT 


0472 




RRCA 






0473 




RRCA 






0474 




RRCA 






0475 




CALL 


HCH0T2 


fFORM ASCII 


0476 




FOP 


AF 


?GET BACK CHAR 


0477 




AND 


OFH 


50NLY RIGHT HALF 


0478 


HCH0T2J 


CP 


OAH 


FNEED LETTER? 


0479 




JR 


CrHCH0T3 


,N0 


0480 




ADD 


'A'-3AH 


i ADJUST FOR A-F 


0481 


HCH0T3J 


ADD 


30H 


*MAKE ASCII 


0482 




JP 


CHROUT 


' i RETURN THERE 
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E205 








0484 t 








E205 








0485 t 








E205 








0486 ? 








E205 








0487 f 


CARRIAGE RETURN / 


LINE FEED 


E205 








0488 f 








E205 








0489 > 


ISSUES A <CR>t<LF> 


TO TERMINAL 


E205 








0490 f 








E205 








0491 t 








E205 








0492 5 










E205 




0493 crlf: 


EQU % 




E205 


3E 


OD 




0494 




LD A>CR 




E207 


CD 


45 


EO 


0495 




CALL CHROUT 




E20A 


3E 


OA 




0496 




LD AfLF 




E20C 


C3 


45 


EO 


0497 




JP CHROUT 


r RETURN THERE 


E20F 








0498 J 

0499 J 








E20F 








E20F 








0500 J 








E20F 








0501 J 








E20F 








0502 J 








E20F 








0503 > 


) ADDRESS AND COLON 


OUTPUT 


E20F 








0504 i 




\ 




E20F 








0505 i 


\ PRINTS ADDRESS IN 


DE FROM 


E20F 








0506 S 


; ADDOUT THEN PRINTS COLON 


E20F 








0507 J 


f AND 


A SPACE ♦ 




E20F 








0508 i 








E20F 








0509 j 








E20F 








0510 i 










E20F 




0511 t 


wdcol: 


EQU * 




E20F 


CD 


E8 


El 


0512 




CALL ADDOUT 


f PRINT ADDRESS 


E212 


3E 


3A 




0513 




LD Ar':' 


SFORM COLON 


E214 


CD 


45 


EO 


0514 




CALL CHROUT 


J AND SEND IT 


E217 


3E 


20 




0515 




LD , A*' ' 


f FORM SPACE 


E219 


C3 


45 


EO 


0516 




JP CHROUT 


JSEND AND RETURN 


E21C 








0517 
0518 








E21C 








E21C 








0519 








E21C 








0520 




. 




E21C 








0521 








E21C 








0522 


J PRINT SPACE AND HEX BYTE 


E21C 








0523 








E21C 








0524 


\ PRINTS A SPACE AND THEN 


E21C 








0525 


? THE 


CHARACTER IN 


THE A i 


E21C 








0526 


f REGISTER IN HEX* 




E21C 








0527 








E21C 








0528 








E21C 








0529 










E2IC 




0530 1 


hexspc: 


EQU $•' 




E21C 


F5 






0531 




. PUSH AF 


?SAVE CHR. 


E21D 


3E 


20 


» 


0532 




" LD A f ' ' 


J FORM SPACE 


E21F 


CD 


45 


EO 


0533 




CALL CHROUT 


,AND SEND IT 


E222 


Fl 






. 0534 




POP AF 


?GET CHAR BACK 


E223 


18 


CS 




0535 




JR HCHOUT 


, PRINT 8 RETURN 
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E225 




E225 




E225 


« 


E225 




E225 




E225 




E225 




E225 




E225 




E225 




E225 




E225 




E225 




E225 




E225 




E225 


} 


E225 




E225 




E225 




E225 






E225 


E225 


7E 


E226 


FE OD 


E228 


C8 


E229 


FE 2E 


E22B 


DO 


E22C 


23 


E22D 


18 F6 


E22F 




E22F 






E22F 


E22F 


FD E5 


E231 


El 




E232 


E232 


7E 


E233 


FE on 


E235 


CB 


E236 


FE 30 


E238 


38 EB 


E23A 


23 


E23B 


18 F5 



0537 








0538 








0539 








0540 


} SCANNER ROUTINE 




0541 








0542 








0543 








0544 


5 THIS ROUTINE SCANS 


THE 


0545 


t INPUT BUFFER LOCATED IN 


0546 


f THE -STORAGE AREA AND SKIPS 


0547 


J ;OVER EITHER! 




0548 


f SCAN = DELIMITERS 


0549 




OR 




0550 


f SCANLT = TEXT 


THEN SCAN 


0551 








0552 


> THIS ROUTINE USED 


FOR FINDING 


0553 


f PARAMETERS 


IN I/O 


BUFFER 


0554 








0555 








0556 








0557 


scan: equ 


$ 




0558 


LD 


At(HL) 


?GET ASCII 


0559 


CP 


CR 


fCAR RET? 


0560 


RET 


z 


JYES THRU 


0561 


CP 


• 


rDELIM? 


0562 


RET 


NC 


JYES - GO BAC 


0563 


INC 


HL 


fNEXT 


0564 


JR 


SCAN 




0565 


* 

9 






0566 


* 

r 






0567 


scanhl: equ 


$ 




0568 


.. PUSH 


IY 




0569 


POP 


HL 


JGET BUFF BEG 


0570 


scanlt: equ 


$ 




0571 


ld 


A><HL> 


fGET 


0572 


CP 


CR 


\ 


0573 


RET 


Z 


J THRU IF CR 


0574 


CP 


, , 


9< 0? 


0575 


JR 


CSCAN 


; YES-GO UP 


0576 


INC 


HL 


JNEXT 


0577 


JR 


SCANLT 
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E23D 




0579 










E23D 




0580 










E23D 




0581 










E23D 




0582 


r CONVERSION ROUTINE 




E23D 




0583 










E23D 




0584 










E23D 




0585 


? THIS ROUTINE SCANS THE ASCII 


E23D 




0586 


? I/O 


BUFFER AND CONVERTS THE 


E23D 




0587 


r ASCII HEX 


TEXT TO BINARY IN 


E23D 




0588 


r THE 


DE REGISTER PAIR* 


VALUE 


E23D 




0589 


r IS 


ROTATD 


IN THROUGH 


Ef SO 


E23D 




0590 


} IF 


ONLY ONE BYTE THEN 


USE E* 


E23D 




0591 










E23D 




0592 i 


f ERROR FOR 


INVALID ASCII ROUTES 


E23D 




0593 S 


; TO 


WHAT ERROR ROUTINE 


* 


E23D 




0594 i 










E23D 




0595 S 










E23D 




0596 i 












E23D 


0597 conv: 


EQU 


$ 




E23D 


11 00 00 


0598 




LD 


DEfO 


t SET FOR NUMBER 


E240 


7E 


0599 CONVi: 


LD 


Af (HL) 


?GET CHAR 


E241 


FE 30 


0600 




CP 


'0' 


?DELIM? 


E243 


D8 


0601 




RET 


C 


f YES-THRU 


E244 


23 


0602 




INC 


HL 


?NEXT 


E245 


FE 47 


0603 




CP 


'F' + l 


rlS IT TOO BIG? 


E247 


D2 DE El 


0604 




JP' 


NCrERRPAR 


?YES 


E24A 


FE 3A 


0605 




CP 


'9' + l 


?IS IT A *? 


E24C 


38 07 


0606 




JR 


Cr NUMBER 


fYES 


E24E 


FE 41 


0607 




CP 


'A' 


t IS IT A LETTER 


E250 


DA DE El 


0608 




JP 


CfERRPAR.- 


?N0! 


E253 


C6 09 


0609 




ADD 


9 


fMAKE 10-15 


E255 


07 


0610 NUMBER 


: RLCA 




t SHIFT 


E256 


07 


0611 




RLCA 




f TO 


E257 


07 


0612 




RLCA 




? LEFT 


E258 


07 


0613 




RLCA 






E25? 


06 04 


0614 




LD 


B,4 


? COUNT 


E25B 


07 


0615 C0NV2: 


RLCA 




rINTO CARRY 


E25C 


CB 13 


0616 




RL 


E 


fINTO E 


E25E 


CB 12 


0617 




RL 


D 


? AND D 


E260 


10 F9 


0618 




DJNZ 


C0NV2 


rTILL B=0 


E262 


18 DC 


0619 




JR 


C0NV1 


rTRY AGAIN 
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E264 






E264 




1 


E264 






E264 






E264 






E264 






E264 






E264 






E264 






E264 






E264 






E264 






E264 






E264 






E264 




^ 




E264 


E264 


CD 


2F E2 


E267 


C8 




E268 


FE 


41 


'"26 A 


D8 




6B 


FE 


5B 


..;6D 


3F 




E26E 


D8 




E26F 


E5 




E270 


FD 


E5 


E272 


Dl 




E273 


21 


47 00 


E276 


19 




E277 


Dl 




E278 


06 


05 


E27A 


FE 


30 


E27C 


13 




E27D 


30 


03 


E27F 


IB 




E280 


3E 


20 


E282 


77 




E283 


23 




E284 


1A 




E285 


10 


F3 


E287 


B7 




E288 


EB 




E289 


C? 





0621 i 








0622 \ 








0623 f 


■« 






0624 i 


NAME FIND 


ROUTINE 




0625 i 








0626 s 








0627 i 


' THIS ROUTINE FINDS THE 


' ASCII 


0628 1 


f NAME IN I/O BUFFER AN! 


i MOVES 


0629 I 


) IT TO CHEAD FILLING WITH SPACES 


0630 \ 


) FOR 5 CHARACTERS ♦ 




0631 








0632 i 


} exit: 


Z SET = NO NAME 


0633 




C SET = BAD 


NAME 


0634 








0635 








0636 namfnd: equ 


* 




0637 


CALL 


SCANHL i 


SKIP COMMAND 


0638 


RET 


Z i 


FLAG SET IF CR 


0639 


CP 


'A' ! 


IS IT 


0640 


RET 


C 




0641 


CP 


'Z'+l j 


A LETTER? 


0642 


CCF 




SET CARRY 


0643 


RET 


C > 


» IF NOT 


0644 


PUSH 


HL i 


k SAVE PNTR 


0645 


PUSH 


IY J 


iMOVE INDEX 


0646 


POP 


DE i 


) TO DE 


0647 


LD 


HLf CHEAD i 


.HL-OFFSET 


0648 


ADD 


HLrDE, ■■■.:■■ \ 


fHL-ADDRESS 


0649 


POP 


DE i 


\ RESTORE PNTR . 


0650 


LD 


B>5 1 


15 CHRS 


0651 


NAMENi:. CP 


' ' » 


f< 0? 


0652 


INC 


DE S 


?NEXT 


0653 


■ JR 


NCfNAMEN2 S 


;no-go ON 


0654 


DEC 


DE 1 


fMOVE PNTR BACK 


0655 


LD 


ArSPACE S 


} SPACE FILL 


0656 


NAMEN2: LD 


(HL)fA \ 


rPUT AWAY 


0657 


INC 


HL 5 


fPOINT NEXT 


0658 


LD 


Af(DE) \ 


?GET NEXT 


0659 


DJNZ 


NAMEN1 S 


?G0 FOR 5 


0660 


OR 


A 


?REDO FLAGS 


0661 


EX 


DEfHL 


^RESTORE HL 


0662 


RET 
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E28A 








0664 










E28A 








0665 










E28A 








0666 










E28A 








0667 


j CASSETTE 


MOTOR CONTROL ROUTINES 


E28A 








0668 










E28A 








0669 










E28A 








0670 












E28A 




0671 


motron: 


EQU 


* 




E28A 


FD 


E5 




0672 




PUSH 


IY 




E28C 


CD 


A2 


El 


0673 




CALL 


GETIY 




E28F 


FD 


7E 


3D 


0674 




LD 


Af<IY+TAPES)JGET SPEED 


E292 


05 






0675 




DEC 


B 




E293 


28 


02 




0676 




JR 


ZfMOTROl 


;no 


E295 


C6 


10 




0677 




ADD 


10H 




E297 


C6 


10 




0678 


motroi: 


ADD 


10H 




E299 


D3 


FE 




0679 




OUT 


OFEHrA 




E29B 


FD 


77 


45 


0680 




LD 


<IY+CMTRFG>fA*PUT AWAY 


E29E 


FD 


El 




0681 




POP 


IY 




E2A0 


06 


04 




0682 


delay: 


LD 


B>4 


5L00P COUNT 


E2A2 


E5 






0683 


DELAY! : 


PUSH 


HL 


JUE DESTROY 


E2A3 


21 


00 


00 


0684 


DELAY2J 


LD 


HLfO 


J CLEAR IT 


E2A6 


2B 




V 


0685 


DELAY3: 


DEC 


HL 




E2A7 


7C 






0686 




LP 


ArH 




E2A8 


B5 






0687 




OR 


L 




E2A9 


20 


FB 




0688 




JR 


NZ>DELAY3 


»LOOP 


E2AB 


10 


F6 




0689 




DJNZ 


DELAY2 


fSOME MORE 


E2AD 


El 






0690 




POP 


HL 


t RESTORE 


E2AE 


C9 






0691 




RET 




JWE'RE THRU 


E2AF 








0692 


* 










E2AF 




0693 


mtroff: 


EQU 


* 




E2AF 


06 


01 




0694 




LD 


B>1 




E2B1 


CD 


A2 


E2 


0695 




CALL 


DELAY! 




E2B4 


FD 


E5 




0696 


MTROFi: 


PUSH 


IY 




E2B6 


CD 


A2 


El 


0697 




CALL 


GETIY 




E2B9 


AF 






0698 




XOR 


A 




E2BA 


D3 


FE 


\ 


0699 




OUT 


OFEHrA 




E2BC 


FD 


77 


45 


0700 




LD 


(IY+CMTRFG)>A?PUT AWAY 


E2BF 


FD 


El 




0701 




POP 


IY 




E2C1 


C9 






0702 




RET 




tBO BACK 


E2C2 








0703 


* 

f 








E2C2 








0704 


f UART 


EQUATES 




E2C2 








0705 


* 






i 




OOFD 




0706 


uarts: 


EQU 


OFDH 






OOFC 




0707 


uartd: 


EQU 


OFCH 




E2C2 








0708 


* 








E2C2 








0709 


* 








E2C2 








0710 


i NULL ROUTINE 




E2C2 








0711 


A 
t 








E2C2 






• 


0712 


r 










E2C2 




0713 


null: 


EQU 


$ 




E2C2 


06 


64 




0714 




LD 


B*100 


JSET B/* 


E2C4 


AF 






0715 


nulli: 


XOR 


A 


JFORM NULL 


E2C5 


CD 


EE 


E2 


0716 




CALL 


TAPOUT 


J SEND IT 


E2C8 


10 


FA 




0717 




DJNZ 


NULLI 


i IS B 0? 

1 


E2CA 


3C 






0718 




INC 


A 




E2C# 


CD 


EE 


E2 


0719 




CALL 


TAPOUT 




E2CE -. 


FD 


70 


46 


0720 




LD 


(•IY+CRCBYT)rBf CLEAR CRC 


E2D1 


C9 






0721 




RET 


a 
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E2D2 








0722 i 






E2D2 




f 




0723 } 






E2D2 






• 


0724 i 


SPACES 1 


ROUTINE 


E2D2 








0725 r 


* * * 


/ 


E2D2 








0726 t 








E2 


D2 




0727 spaces: equ 


$ 


E2D2 


3E 


20 




0728 


LD 


A f SPACE 


E2D4 


CD 


45 


EO 


0729 


CALL 


CHROUT 


E2D7 


10 


F9 


• 


0730 


DJNZ 


• SPACES rLOOP Tl7w_ 


E2D9 


C9 






0731 


RET 




E2DA 








0732 t 


* 




E2DA 








0733 i 


CASSETTE 


TAPE INPUT / OUTPUT 


E2DA 








0734 i 






E2DA 








0735 5 






E2DA 






> 


0736 i 


TAPE BYTE 


INPUT 


E2DA 








0737 * 








E2] 


DA 




0738 tapein: EQU 


$ 


E2DA 


FD 


E5 




0739 


PUSH 


IY 


E2DC 


CD 


A2 


El 


0740 


CALL 


GETIY *G0 GET IY 


E2DF 


CD 


Dl 


EA 


0741 TAPIN1J CALL 


ESCCHK rUSER? 


E2E2 


20 


2B 




0742 


JR 


NZfTAPLVE rHE WANTS L 


E2E4 


DB 


FD 




0743 


IN 


ArUARTS 


E2E6 


CB 


4F 




0744 


BIT 


1>A 


E2E8 


28 


F5 




0745 


JR 


ZfTAPINl 


E2EA 


DB 


FC 




0746 


IN 


ArUARTD 


E2EC 


18 


OF 




0747 


JR 


CRCOMP 


E2EE 








0748 i 






E2EE 








0749 i 


TAPE BYTE 


OUTPUT 


E2EE 








0750 i 








E2EE 




0751 TAPOUT: EQU 


$ 


E2EE 


FD 


E5 




0752 ,. v . 


PUSH 


IY 


E2F0 


CD 


A2 


El 


0753 


CALL 


GETIY ?G0 GET IY 


E2F3 


F5 






0754 


PUSH 


AF 


E2F4 


DB 


FD 




0755 TAPOTi: IN 


ArUARTS 


E2F6 


CB 


47 




0756 v ' 


BIT 


Of A 


E2F8 


28 


FA 




0757 


JR 


Zf TAPOTI 


E2FA 


Fl 






0758 


POP 


AF 


E2FB 


D3 


FC 




0759 


OUT 


UARTDrA 


£2FD 








0760 i 






E2FD 








0761 i 


CRC COMPUTATION ROUTINE 


E2FD 








0762 i 


* 




E2FD 


C5 






0763 CRCOMPJ PUSH 


BC J WE DESTROY 


E2FE 


F5 






0764 


PUSH 


AF 5ALS0 


E2FF 


FD 


46 


46 


0765 


LD 


Bf (IY+CRCBYT)?GET CRC 


E302 


90 






0766 


SUB 


B 


E303 


47 






0767 


LD 


BfA 


E304 


A8 






0768 


XOR 


B 


E305 


2F 






0769 


CPL 




E306 


90 






0770 


SUB 


B 


E307 


FD 


77 


46 


0771 


LD 


(IY+CRCBYT) ? A 


E30A 


Fl 






0772 


POP 


AF 


E30B 


CI 






0773 


POP 


BC ? RESTORE 


E30C 


FD 


El 




0774 TAPLV2: POP 


IY ? RESTORE 


E30E 


C9 






0775 


RET 




E30F 








0776 5 






E30F 








0777 5 






E30F 


AF 






0778 TAPLVEJ xor 


A 


E310 


18 


FA 




0779 


JR 


TAPLV2 



US! 
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E312 






E312 






E312 






E312 






E312 






E312 






E312 






E312 






E312 






E312 






E312 






E312 








E31 


2 


E312 


44 


55 


E314 


D3 


E4 


E316 


45 


4E 


E318 


38 


E5 


E31A 


53 


41 


E31C 


38 


E6 


E31E 


4C 


4F 


E320 


8A 


E7 


E322 


46 


49 


E324 


B9 


E6 


E326 


47 


4F 


E328 


97 


E5 


E32A 


43 


52 


E32C 


5C 


E8 


E32E 


53 


45 


E330 


A2 


E5 


E332 


4D 


4F 


E334 


62 


E5 


E336 


54 


45 


E338 


Al 


E8 


E33A 


42 


41 


E33C 


58 


E8 


E33E 


4C 


49 


E340 


84 


E8 


E342 


50 


52 


E344 


45 


E8 


E346 


4F 


56 


E348 


D4 


El 


E34A 


50 


50 


E34C 


8A 


E9 




E34E 



0780 i 








0781 i 








0782 » 








0783 f 








0784 i 


; COMMAND 


TABLE 




0785 i 








0786 S 


> FORMATED AS FOLLOWS: 




0787 i 


f 2 BYTE 


ASCII COMMAND 


0788 I 


f 2 BYTE 


JUMP ADDRESS 


0789 


f END BYTE 


IS 




0790 






> 


0791 








0792 ■ 


rABLE; EQU 


* 




0793 


DB 


'DU' 




0794 


DW 


DUMP 


J DUMP FROM MEMORY 


0795 
0796 


DB 

DW 


'EN 7 
ENTER 


J ENTER TO MEMORY 


0797 


DB 


'SA' 




0798 


DW 


SAVE 


JSAVE FILE ON CASSETTE 


0799 
0800 


DB 

DW 


'LO' 
LOAD 


5 LOAD FILE FROM CASS. 


0801 
0802 


DB 
DW 


'FI' 
FILES 


JLIST CASSETTE FILES 


0803 


DB 


'GO' 




0804 


DW 


GO 


J GO TO PROGRAM 


0805 


DB. 


'CR' 




0806 


DW 


GREAT 


JCREAT BATCH FILE 


0807 
0808 


DB 
DW 


'SE' 
SET 


J SET PARAMETERS 


0809 


DB 


'MO' 




0810 


DW 


MOVE 


J MOVE BLOCK MEMORY 


0811 


DB 


'TE' 




0812 


DW 


TEST 


5TEST 


0813 
0814 


DB 
DW 


'BA' 
BATCH 


^EXECUTE BATCH FILE 


0815 


DB 


'LI' 




0816 


DW 


LIST 


5LIST BATCH FILE 


0817 


DB 


'PR' 




0818 


DW 


PRMPTC 


; CHANGE PROMPT CHAR 


0819 


DB 


'OV 




0820 


DW 


FINISH 


fEND BATCH MODE 


0821 


DB 


'PP' 




0822 


DW 


PROMPK 


J BRANCH TO v PROM PACK 


0823 


endtbl: EQU 


$ 




0824 


DB 








EXIDY 


STANDARD 


MONITOR SOFTWARE 






07/26/78 


E34F 






0826 


A 








E34F 


* 




0827 


A 
f 








E34F 




* 


0828 


A 
f 








E34F 






0829 


* * 

f 


* 




i 


E34F 






0830 


a 
t 








E34F 






0831 


A 

9 


SET COMMAND TABLE 




E34F 






0832 


A 
f 








E34F 






0833 


A 
f 








-34F 






0834 


A 
f 


• 




* 


34F 






0835 


A 
f 








34F 






0836 


A r 
f 










E34F 


0837 


SETTBL 


.: EQU 


$ 




34F 






0838 


A 
f 








34F 


54 




0839 




DB 


'T' 




350 


DE 


E5 , 


0840 




DU 


TAPE 


?SET TAPE RATE 


352 


53 




0841 




DB 


'S' 




353 


EA 


E5 


0842 




DU 


SPEED 


*SET DISPLAY SPEED 


355 


58 




0843 




DB 


'X' 




:356 


F2 


E5 


0844 




DU 


XEQSET 


?SET XEQ ADDRESS 


£358 


46 




0845 




DB 


'F' 




E359 


EE 


E5 


0846 




DW 


SETFIL 


fSET FILE TYPE 


E35B 


4F 




0847 




DB 


'0' 




E35C 


F9 


E5 


0848 




DU 


SETOUT 


f SET OUTPUT 


E35E 


49 




0849 




DB 


'I' 




E35F 


1C 


E6 


0850 




DW 


SETIN 


>SET INPUT 


E361 


00 




0851 




DB 
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E362 










E362 










E362 










E362 










E362 










E362 










E362 










E362 










E362 










E362 


OD 








E363 


45 


58 


49 


44 




5? 


20 


53 


54 




41 


4E 


44 


41 




52 


44 


20 


4D 




4F 


4E 


49 


54 




4F 


52 






E379 


OD 


OD 






E37B 


56 


45 


52 


53 




49 


4F 


4E 


20 




31 


2E 


30 




E386 


OD 








E387 


43 


4F 


50 


59 




52 


49 


47 


48 




54 


20 


28 


43 




29 


20 


31 


39 




37 


38 


20 


42 




59 


20 






E39D 


45 


58 


49 


44 




59 


20 


49 


4E 




43 


2E 






E3A7 


OD 


OD 






E3A? 


54 


48 


45 


20 




54 


4F 


50 


20 




4F 


46 


20 


52 




41 


4D 


20 


49 




53 


20 






E3BB 


00 








E3BC 


20 
2E 


48 


45 


58 


E3C1 


OD 








E3C2 


53 


54 


41 


43 




4B 


20 


42 


45 




47 


49 


4E 


53 




20 


46 


52 


4F 




4D 


20 


00 




E3D5 


20 
2E 


48 


45 


58 


E3DA 


OD 


OD 


00 




E3DD 








• 


E3DD 


45 


52 


52 


4F 




52 


20 


2D 


20 




00 








E3E6 


49 


4E 


56 


41 




AC 


49 


44 


20 




43 


4F 


4D 


4D 




41 


4E 


44 


00 


E3F6 


49 


4E 


56 


41 




4C 


49 


44 


20 



0853 
0854 
0855 

0856 
0857 
0858 
0859 
0860 
0861 
0862 
0863 



MESSAGE TABLE 



heding: db 

DB 



0864 
0865 



0866 
0867 



0868 



086? 
0870 



0871 DB 

0872 HEAD2J DB 



0873 
0874 



DB 



0876 

0877 f 

0878 ERRMSGt DB 



CR 

'EXIDY STANDARD MONITOR 



DB CR»CR 

DB 'VERSION 1.0' 



DB CR 

DB 'COPYRIGHT (C) 1978 BY ' 



DB 'EXIDY INC.' 



DB CR»CR 

DB 'THE TOP OF RAM IS ' 



HEX.' 



CR 

'STACK BEGINS FROM 'rO 



0875 HEAD3: DB ' HEX*' 



DB CRfCRyO 



ERROR 







0879 IVCMSG: DB /INVALID COMMAND' rO 



0880 IVPMSG: DB 'INVALID PARAMETER' rO 
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50 41 52 41 












4D 45 54 45 






, 






52 00 • 










E408 


54 41 50 45 


0881 crcmsg: 


nB 


'TAPE CRC ERROR' rO 






20 43 52 43 












20 45 52 52 












4F 52 00 










E417 




0882 f 




_ _ A 




E417 


OD 


0883 nHEAn: 


bb • 


CR 




E418 


41 44 44 52 
20 20 20 30 
20 20 31 20 
20 32 20 20 

33 


0884 

* 


BB 


'ABnR 12 3' 




E429 


20 2Q 20 34 
20 20 35 20 
20 36 20 20 
37 


0885 


BB 


4 5 6 7' 




E436 


20 20 20 38 
20 20 39 20 
20 41 20 20 
42 


0886 


BB 


8 9 A B' 




E443 


20 20 20 43 
20 20 44 20 
20 45 20 20 
46 


0887 


BB 


CHEF' 




E450 


on on oo 


0888 


BB 


CR>CR*0 




E453 




0889 f 








E453 


on on 


0890 FILHIi: 


BB 


CRrCR 




E455 


4E 41 411 45 
20 20 20 


0891 


BB 


'NAME 




E45C 


46 49 AC 45 
20 


0892 


BB 


'FILE ' 




E461 


42 AC 43 4B 
20 41 44 44 
52 20 


0893 


BB 


'BLCK ABEiR ' 




E46B 


47 4F 41 44 
44 52 53 


0894 


BB 


'GOAtmRS' 




E472 


on on oo 


0895 


BB 


CRfCRfO 




E475 




0896 f 








E475 




0897 f 








E475 


OEi 41 44 44 
52 20 20 20 
42 49 54 


0898 TESTHBJ 


BB 


CRf'ADDR BIT' 




E480 


20 30 20 20 
20 31 20 20 
20 


0899 


BB 


'01 




E489 


32 20 20 20 

33 20 20 20 


0900 


BB 


'2 3' 




E491 


34 20 20 20 

35 20 20 20 


0901 


BB 


'4 5 ' 




E499 


36 20 20 20 

37 on on oo 


0902 


BB 


'6 7'rCRfCRf0 




E4A1 


42 41 44 20 
00 


0903 BAnHSG: 


BB 


'BAB '>0 




E4A6 


4F 4B 20 20 
00 


0904 okmsg: 


BB 


'OK ' ? 




E4AB 


20 20 50 41 


0905 PSCMSGJ 


I BB 


' PASS COMPLETEB*' 


rCRrCRrO 
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53 53 20 43 




4F 4D 50 4C 




45 54 45 44 




2E OD OD 00 


E4BF 




E4BF 


OD 4C 4F 41 




44 49 4E 47 




20 2D 00 


E4CA 


46 4F 55 4E 




44 20 2D 20 



0906 r 

0907 ldgmsg: DB 



0908 FNDMSGJ DB 



CR» 'LOADING -' ?0 



FOUND - 'fO 



00 



EXIDY 


STANDARD MONITOR 


SOFTWAKb 






E538 






0967 


A 
f 






E538 






0968 


• 

9 






E538 






0969 








E538 






0970 


} ENTER COMMAND 


E538 






0971 


f 






E538 






0972 


* 
f 






E538 






0973 


A 
f 








E538 


0974 


enter; 


EQU 


$ 


E538 


CD 


05 E2 


0975 




CALL 


CRLF 


E53B 


CD 


2F E2 


0976 




CALL 


SCANHL 


E53E 


CA 


DE El 


0977 




JP 


Z>ERRPAR 


E541 


CD 


3D E2 


0978 




CALL 


CQNV 


E544 


CD 


OF E2 


0979 


ENTERi: 


CALL 


ADDCOL 


E547 


D5 




0980 




PUSH 


DE 


E548 


CD 


3 A El 


0981 




CALL 


LINEIN 


E54B 


FD 


E5 


0982 




PUSH 


IY 


E54D 


El 




0983 




POP 


HL 


E54E 


Dl 




0984 




POP 


DE 


E54F 


CD 


25 E2 


0985 


ENTER2J 


CALL 


SCAN 


E552 


CA 


44 E5 


0986 




JP 


ZfENTERl 


E555 


FE 


2F 


0987 




CP 


'/' 


E557 


C8 




0988 




RET 


Z 


E558 


D5 


• 


0989 




PUSH 


DE 


E559 


CD 


3D E2 


0990 




CALL 


CONV 


E55C 


7B 




0991 




LD 


AtE 


E55D 


Dl 




0992 




POP 


DE 


E55E 


12 




0993 




LD ■ 


(DE)fA 


E55F 


13 




0994 




INC 


DE 


E560 


18 


ED 


0995 




JR 


ENTER2 



5NEXT LINE 
5SKIP "EN" 
JEOL? 

;get address 

fPRINT ADDRESS 

JSAVE IT 

J GET A LINE 

5 GET BUFFER 

i INTO HL 

5 AND ADDRESS 

JFIND PARAM 

JCR-LOOP 

J END? 

J YES 

fSAVE-CONV DESTROYS 

JMAKE A * 

i IN A 
^RESTORE 
} AND MEM 
i NEXT 
JAGAIN 
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E562 






E562 


t 




E562 


« 




E562 






E562 






E562 






E562 


E562 




E562 


CD 2F. 


E2 


E565 


CA DE 


El 


E568 


CD 3D 


E2 


E56B 


D5 




E56C 


CD 25 


E2 


E56F 


CA DE 


El 


E572 


CD 3D 


E2 


E575 


D5 




E576 


CD 25 


E2 


E579 


FE 53 




E57B 


28 11 




E57D 


CD 3D 


E2 


E580 


37 




E581 


3F 




E582 


El 




E583 


CI 




E584 


C5 




E585 


ED 42 




E587 


E5 




E588 


CI 




E589 


El 




E58A 


03 




E58B 


ED BO 




E58D 


C9 




E58E 


23 




E58F 


CD 3D 


E2 


E592 


D5 




E593 


CI 




E594 


Dl 




E595 


18 F2 





0997 » 

0998 i 

0999 5 

1000 t 

1001 i 

1002 % 

1003 i 

1004 move: 

1005 

1006 

1007 ' 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 M0VE1 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 



MOVE BLOCK ROUTINE 



M0VE2: 



EQU 


$ 




CALL 


SCANHL 


JSKIP "MO" 


JP 


ZrERRPAR 




CALL 


CONV 




PUSH 


DE 


J SAVE "FROM" 


CALL 


SCAN 




JP 


Z>ERRPAR 




CALL 


CONV 




PUSH 


DE 


*SAVE "FROM END" 


CALL 


SCAN 




CP 


'S' 


$ SWATH? 


JR 


Z»M0VE2 


J YES-ALL SET! 


CALL 


CONV 


J GET SWATH 


SCF 






CCF 




JCLEAR CARRY 


POP 


HL 


JGET "FROM END" 


POP 


BC 


J GET "FROM BEG* 


PUSH 


BC 


fSAVE AGAIN 


SBC 


HL»BC 


fMAKE SWATH 


PUSH 


HL 


J MOVE HL 


POP 


BC 


t TO BC 


POP 


HL 


i GET "FROM" 


INC 


BC 


i ADJUST 


LDIR 




} MOVE 'EM 


RET 






INC 


HL 


JSKIP "S" 


CALL 


CONV 


J GET SWATH 


PUSH 


DE 


fMOVE DE 


POP 


BC 


}~ TO BC 


POP 


DE 


fGET "TO" 


JR 


M0VE1 


^CONTINUE UPSTAIRS 
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E597 








1036 f 








E597 








1037 ? 


- 






E597 








103S ? 








E597 








1039 f 


GO COMMAND 




E597 








1040 f 








E597 








1041 f 








E597 








1042 f 










E597 




1043 go: 


EQU 


$ 




E597 


CD 


2F 


E2 


1044 


CALL 


SCANHL 


»SKIP "GO" 


E59A 


CA 


DE 


El 


1045 


JP 


ZVERRPAR 




E59D 


CD 


3D 


E2 


1046 


CALL 


CONV 


?GET ADDRESS 


E5A0 


EB 






1047 


EX 


DErHL 


?PUT IN HL 


E5A1 


E9 






1048 


JP 


(HL) 


*G0 TO IT! 
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E5A2 


* 




E5A2 


1 




E5A2 






E5A2 






E5A2 






E5A2 






E5A2 


E5A2 




E5A2 


CD 2F 


E2 


E5A5 


CA DE 


El 


E5A8 


DD 21 


4F E3 


E5AC 


DD BE 


00 


E5AF 


28 11 




E5B1 


DD 23 




E5B3 


DD 23 




E5B5 


DD 23 




E5B7 


F5 




E5B8 


DD 7E 


00 


E5BB 


B7 




E5BC 


CA DE 


El 


E5BF 


Fl 




E5C0 


18 EA 




E5C2 


23 




E5C3 


CD 25 


E2 


E5C6 


FE 3D 




E5C8 


•C2 DE 


El 


E5CB 


23 




E5CC 


CD 25 


E2 


E5CF 


CA DE 


El 


E5D2 


FE 47 




E5D4 


30 03 




E5D6 


CD 3D 
E5D9 


E2 


E5D? 


DD 23 




E5DB 


C3 1C 


El 



1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 



SET COMMAND 



SET 



SET1 



SET2: 



SET3: 



EGU 

CALL 

JP 

LD 

CP 

JR 

INC 

INC 

INC 

PUSH 

LD 

OR 

JP 

POP 

JR 

INC 

CALL 

CP 

JP 

INC 

CALL 

JP 

CP 

JR 

CALL 

EQU 

INC 

JP 



$ 

SCANHL 

Z»ERRPAR 

IX»SETTBL 

(IX) 

Z»SET2 

IX 

IX 

IX 

AF 

Ar(IX) 

A 

Z»ERRPAR 

AF 

SET1 

HL 

SCAN 

NZ»ERRPAR 

HL 

SCAN 

ZrERRPAR 

'G' 

NCfSET3 

CONV 

$ 

IX 

MAIN3 



SKIP "SE* 

POINT SET TABLE 
IS IT? 

YES-GO SET UP 
NO- 

POlNT 
NEXT 
SAVE CHAR 
IS IT 

END? 
YES-INVALID 
RESTORE 
CONTINUE 
SKIP CHAR 
TO NEXT 

NO-INVALID 
SKIP •=• 
AND DELIMS 
BAD END 



fMAKE FOR SET 

JFOR MAIN3 

} JUMP FROM TBL 



EXIDY STANDARD MONITOR SOFTUARE 



07/26/78 



E5DE 








1086 










E5DE 








1087 










E5DE 








1088 




SET VALUE ROUTINES 


E5DE 








1089 










E5DE 








1090 










E5DE 








1091 










E5DE 








1092 




SET 


TAPE 


RATE 


E5DE 








1093 












E5DE 




1094 


tape: 


EQU 


* 


E5DE 


7B 






1095 






LD 


AfE 


E5DF 


B7 






1096 






OR 


A fTEST IF ZERO 


E5E0 


3E 


00 




1097 






LD 


AfO fSET IN CASE 300 BAUD 


E5E2 


20 


02 




1098 






JR 


HZt TAPEI ?G0 DO 300 BAUD 


E5E4 


3E 


40 




1099 






LD 


Af40H fMAKE 1200 BAUD 


ESE6 


FD 


77 


3D 


1100 


tapei: 


LD 


(IY+TAPES)fAfPUT away 


E5E9 


C9 






1101 






RET 




E5EA 








1102 


* 
F 








E5EA 








1103 


a 
F 


SET 


DISPLAY SPEED 


E5EA 








1104 


A 

r 










E5EA 




1105 


speed: 


EQU 


$ 


E5EA 


FD 


73 


3E 


1106 






LD 


(IY+SPEEDS)fE 


E5ED 


C9 






1107 






RET 




E5EE 








1108 


A 
F 








E5EE 








1109 


A 

F 


SET 


CASSETTE FILE TYPE 


E5EE 








1110 


A 
F 










E5EE 




1111 


SETFIL 


I EQU 


$ 


E5EE 


FD 


73 


4D 


1112 






LD 


<IY+CHEAD+HTYPE)fE 


E5F1 


C9 






1113 






RET 




E5F2 








1114 


f 








E5F2 








1115 


* 


SET 


XEQ ADDRESS 


E5F2 








1116 


A 

t 










E5F2 




1117 


XEQSET 


I EQU 


$ 


E5F2 


FD 


73 


52 


1118 






LD 


<IY+CHEAD+HXEQ)fE 


E5F5 


FD 


72 


53 


1119 






LD 


(IY+CHEAD+HXEQ+1>fD 


E5F8 


C9 






1120 






RET 




E5F9 








1121 


* 
F 








E5F9 








1122 


A 
F 


; 


SET OUTPUT ADDRESS 


E5F9 








1123 


* 








E5F9 


FE 


56 




1124 


SETOUT 


: CP 


, V / 


E5FB 


20 


03 




1125 






JR 


NZfSETOTI „ „, 
DEfVIDED €0W Z 7 /*™ 


E5FD 


11 


IB 


EO 


1126 






LD 


E600 


FE 


50 




1127 


SET0T1 


: CP 


'p ' V 


E602 
E604 


20 
11 


03 
21 


EO 


1128 
1129 






JR 
LD 


NZfSET0T2 ^ , ;y 
DEfPARLOT EfU ?*/*' <7 


E607 


FE 


53 




1130 


SET0T2 


: cp 


'S' 


E609 


20 


03 




1131 






JR 


NZfSET0T3 

IJErQUTAPE ^<* Jf/*** 


E60B 


11 


12 


EO 


1132 






LD 


E60E 


FE 


AC 




1133 


SET0T3 


\ CP' 


'L' fIS IT CENTRONICS 


E610 


20 


03 


• 


1134 






JR 


NZfSET0T4 rNO 


E612 


11 


93 


E9 


1135 






LD 


DEfCENDRV , £9'?3 \H1j 233 


E615 


FD 


73 


3F 


. 1136 


SET0T4 


: LD 


(IY+OUTADEDfE 


E618 


FD 


72 


40 


1137 






LD 


(IY+0UTADD+1)fD 


E61B 


C9 






, 1138 






RET 




E61C 








1139 


f 






» 


E61C 








1140 


r 




SET INPUT ADDRESS . 


E61C. 








1141 


A 
F 










E61C 




1142 


setin: 


EQU 


$• 


E61C 


FE 


4B 




1143 






CP 


'K' 
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E61E 


20 


03 




E620 


11 


18 


P° 


E623 


FE 


50 




E625 


20 


03 




E627 


11 


IE 


EO 


E62A 


FE 


53 




E62C 


20 


03 




E62E 


11 


OF 


EO 


E631 


FD 


73 


41 


E634 


FD 


72 


42 


E637 


C? 







1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 



SETINU 



SETIN2: 



SETIN3J 



Z$ir 0.^7,21 



£0lE ?°/2*r 



JR NZfSETINl 

LD DEfKEYBRD 

CP 'P' 

JR NZ»SETIN2 

LD DErPARLIN 

CP 'S' 

JR NZrSETIN3 

LD DE»INTAPE fM=. 'T/2*7 

LD ' <IY+INADD)fE 

LD (IY+INADD+1)»D 

RET 
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U//^o/ /o 



E638 






E638 






E638 






E638 






E638 






E638 






E638 


E638 




E638 


CD 64 


E2 


E63B 


CA DE 


El 


E63E 


DA DE 


El 


E641 


CD 32 


E2 


E644 


CA DE 


El 


E647 


CD 3D 


E2 


E64A 


D5 




E64B 


FD 73 


50 


E64E 


FD 72 


51 


E651 


CD 25 


E2 


E654 


CA DE 


El 


E657 


CD 3D 


E2 


E65A 


EB 




E65B 


CI 




E65C 


C5 




E65D 


37 




E65E 


3F 




E65F 


ED 42 




E661 


23 




E662 


E5 




E663 


FD 75 


4E 


E666 


FD 74 


4F 


E669 


FD 36 


4C 55 


E66D 


EB 




E66E 


06 01 




E670 


CD 25 


E2 


E673 


28 04 




E675 


CD 3D 


E2 


E678 


43 




E679 


CD 8A 


E2 


E67C 


CD C2 


E2 


E67F 


FD E5 




E681 


DD El 




E683 


06 10 




E685 


DD 7E 


47 


E688 


CD EE 


E2 


E68B 


DD 23 




E68D 


10 F6 




E68F 


CD 9B 


E8 


E692 


CD C2 


E2 


E695 


Dl 




E696 


El 




E697 


CD A9 


E6 


E69A 


CA AF 


E2 „ 


E69D 


7E 




E69E 


CD EE 


E2 


E6A1 


23 




E6A2 


10 F9 




E6A4 


CD 9B 


E8 


E6A7 


18 EE 





1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 



SAVE COMMAND 



save: EQU 

CALL 

JP 
JP 

CALL 
JP 

CALL 
PUSH 
LD 
LD 

CALL 
JP 

CALL 
SAVBASJ EX 
POP 
PUSH 
SCF 
CCF 
SBC 
INC 
PUSH- 
LD 
LD 
LD 
EX 
LD 

CALL 
JR 

CALL 
LD 
SAVEi: CALL 
CALL 
PUSH 
POP 
LD 
SAVE2J LD 

CALL 
INC 
DJNZ 
CALL 
CALL 
POP 
POP 
SAVE3I CALL. 

•JP 
SAVE4t LD 

CALL 

INC 

DJNZ 

CALL 

JR 



* 

NAMFND 

ZfERRPAR 

CfERRPAR 

SCANLT 

ZfERRPAR 

CONY 

DE 



J GET NAME 

?N0 NAME 

JBAD NAME 

fSKIP NAME 

rEOL 

?GET BEG ADD 

rSAVE 



(IY+CHEAD+HADDR>fE 

< I Y+CHEAD+HADDR+1 ) r D 

SCAN "* 

ZrERRPAR 

CONV 

DEfHL 

BC 

BC 



fNEXT 

$ NO END ADD 

?SAVE HL 
?GET BEG 
JRESAVE 
J CLEAR ARRY 



HLfBC 

HL f ADJUST 

HL fSAVE BLK 

<IY+CHEAD+HSIZE)fL 

<IY+CHEAD+HSIZE+1)fH 

<IY+CHEAD+5>f55Hf"MAKE AN EXIDY FILE 

DEfHL 

f DEFAULT 
fSKIP TO EOL 



BfI 

SCAN 

ZfSAVEl 

CONV 

BfE 

MOTRON 

NULL 

IY 

IX 

BfHEADLN 



?GET UNIT 

? IN B 

fTURN ON CAS* 

?S NULL IT 

?MOVE IY 

r TO IX 

f HEADER LENGTH 



Af <IX+CHEAD)fGET 

TAPOUT fSEND 

IX ?NEXT 

SAVE2 5 LOOP FOR HEADER 

WRCRC .WRITE CRC 1IC - Arcrc . 

NULL fWRITE NULLS AFTER HEADER 

DE • ?GET BLOCK SIZE 

HL. 'GET BEGGINNING ADDRESS 

BLKADJ f DO BLOCK ADJUST 

ZfMTROFF ?G0 TURN OFF IF THRU 

Af(HL) fGET BYTE 

TAPOUT . J SEND IT 

HL ?NEXT 

SAVE4 5L00P FOR BLOCK 

WRCRC fWRITE CRC 

SAVE3 JKEEP GOIN' . 
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E6A9 




E6A9 


t 


E6A9 






E6A9 


E6A9 


AF 


E6AA 


FD 77 At 


E6AD 


47 


E6AE 


B2 


E6AF 


20 05 


E6B1 


B3 


E6B2 


C8 


E6B3 


43 


E6B4 


5A 


E6B5 


C9 


E6B6 


15 * 


E6B7 


B7 


E6B8 


C9 



1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 



BLOCK ADJUST ROUTIN 



blkadj: 



BLKAJ 



ot 



EQU 

XOR 

LD 

LD 

OR 

JR ' 

OR 

RET 

LD 

LD 

RET 

DEC 

OR 

RET 



$ 

A J CLEAR A 

( I Y+CRCBYT ) t A i CLEAR CRC 



B»A 
D 



J ALSO B 

J IS D ZERO? 



NZ»BLKAJ2 i NO-NORMAL RETURN 



E 

Z 

BfE 

E»B 

D 
A 



?IS E ZERO? 

JYES-WE'RE THRU! 

}D0 ADJUSTMENT ON DE 



JONE LESS BLOCK 
PRESET ZERO FLAG 
J BYE BYE 
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E6B9 








1232 












E6B9 








1233 












E6B9 








1234 




FILES COMMAND 


- 


E6B9 








1235 












E6B9 








1236 




LISTS FILES FROM CASSETTE TO 


E6B9 








1237 




TERMINAL* 


< 




E6B9 








1238 














E6B9 




1239 


files: 


EQU 


$ 




E6B9 


CD 


2F 


E2 


1240 






CALL 


SCANHL 


.SKIP -FI" 


E6BC 


06 


01 




1241 






LD 


B* 1 


?UNIT DEFAULT 


E6BE 


28 


04 




1242 






JR 


Z^FILESl 




E6C0 


CD 


3D 


E2 


1243 






CALL 


CONV 


rGET UNIT 


E6C3 


43 






1244 






LD 


BfE 


f IN B ' 


E6C4 


21 


53 


E4 


1245 


filesi: 


LD 


HLrFILHD 




E6C7 


CD 


BA 


El 


1246 






CALL 


MSGOUT 


JSEND HEADING 


E6CA 


CD 


8A 


E2 


1247 






CALL 


MOTRON 


rTURN ON! 


E6CD 


CD 


IB 


E7 


1248 


FILES2: 


CALL 


GETHED 




E6D0 


CD 


DE 


E6 


1249 






CALL 


HEDPRT 


fPRINT HEADER 


E6D3 


FD 


7E 


5C 


1250 






LD 


Af (IY+THEAD+5)JGET EXIDY FILE CHECK 


E6D6 


B7 






1251 






OR 


A 


fSET FLAGS 


E6D7 


28 


F4 




1252 






JR 


Z>FILES2 


J DO PROC TECH SKIP 


E6D9 


CD 


34 


E7 


1253 






CALL 


SKIPFL 


JNEXT FILE 


E6DC 


18 


EF 




1254 






JR 


FILES2 




E6DE 
E6DE 








1255 
1256 


• 
r 

A 
















f "~ 










E6DE 








1257 


f 










E6DE 








1258 


* 
f 


PRINTS 


HEADER ON 


TERMINAL 


E6BE 








1259 


f 










E6DE 








1260 


r 










E6DE 


FD 


E5 




1261 


hedprt: 


PUSH 


IY 




E6E0 


DD 


El 




1262 






POP 


IX 


rMOVE IY>IX 


E6E2 


06 


05 




1263 






LD 


Bf5 


JNAME 


E6E4 


DD 


7E 


57 


1264 


FILES3: 


LD 


A> (IX+THEAD) ?GET 


E6E7 


CD 


45 


EO 


1265 






CALL 


CHROUT 


?SEND 


E6EA 


DD 


23 




1266 






INC 


IX 


?NEXT 


E6EC 


10 


F6 




1267 






DJN2 


FILES3 


fLOOP FOR 5 


E6EE 


06 


03 




1268 






LD 


Br3 




E6F0 


CD 


D2 


E2 


1269 






CALL 


SPACES 


?3 SPACES 


E6F3 


DD 


23 




1270 






INC 


IX 


5 SKIP OVER ZERO IN HEADER 


E6F5 


DD 


7E 


57 


1271 






LD 


A* (IX+THEAD) 


E6F8 


CD 


45 


EO 


1272 






CALL 


CHROUT 


JSEND FILE TYPE 


E6FB 


06 


03 




1273 






LD 


B*3 




E6FD 


CD 


D2 


E2 


1274 






CALL 


SPACES 


?3 SPACES 


E700 


DD 


23 




1275 






INC 


IX 


f NEXT 


E702 


06 


03 




1276 






LD 


B*3 


? THREE ADDRESS' 


E704 


DD 


5E 


57 


1277 


FILES4; 


LD 


E, (IX+THEAD) 


E707 


DD 


56 


58 


1278 






LD 


Df (IX+THEAD+l)rGET ADD 


E70A 


DD 


23 




1279 






INC 


IX 




E70C 


DD 


23 




1280 






INC 


IX 


fSKIP THIS 1 


E70E 


CD 


E8 


El 


1281 






CALL 


ADtfOUT 


fPRINT IT 


E711 


3E 


20 




1282 






LD ' 


A r SPACE 




E713 


CD 


45 


EO # 


1283 






CALL 


CHROUT 


?1 SPACE 


E716 


10 


EC 




1284 






DJNZ 


FILES4 


5L00P TOR 3 


E718 


C3 


05 


E2 


1285 






JP 


CRLF 


JNEW LINE 
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E71B 








E71B 


■ 






E71B 




1 




E71B 








E71B 








E71B 








E71B 








E71B 








E71B 






• 


E71B 








E71B 








E71B 










E71B 




E71B 


CD 


5? 


E7 


E71E 


FD 


ES 




E720 


DD 


El 




E722 


06 


10 




E724 


CD 


DA 


E2 


E727 


CA 


D4 


El 


E72A 


DD 


77 


57 


E72D 


DD 


23 




E72F 


10 


F3 




E731 


C3 


4E 


E7 


E734 








E734 








E734 


. 






E734 








E734 








E734 








E734 








E734 








E734 








E734 










E734 




E734 


CD 


59 


E7 


E737 


FD 


5E 


5E 


E73A 


FD 


56 


5F 


E73D 


CD 


A9 


E6 


E740 


C8 






E741 


CD 


DA 


E2 


E744 


CA 


D4 


El 


E747 


10 


F8 




E749 


CD 


4E 


E7 


E74C 


18 


EF 




E74E 








E74E 


• 






E74E 










E74E 




E74E 


FD 


46 


46 


E751 


CD 


DA 


E2 


E754 


B8 






E755 


C2 


E3 


El 


E758 


C9 







1287 f 








1288 ; 








1289 > 








1290 i 


CASSETTE UTILITY ROUTINES 


1291 J 








1292 i 








1293 j 








1294 S 






m 


1295 i 


\ GET HEADER 


1296 i 


\ 






1297 i 


1 LOADS 


1 HEADER FROM TAPE TO BUFFER 


1298 i 








1299 gethed: 


EQU 


$ 


1300 




CALL 


TAPWT J SKIP NULLS 


1301 




PUSH 


IY rMOVE IY 


1302 




POP 


IX * TO IX 


1303 




LD 


BrHEADLN J GET LENGTH 


1304 ( 


3ETHD1 J 


CALL 


TAPEIN i GET BYTE 


1305 




JP 


ZrFINISH 5USER WANTS US 


1306 




LD 


<IX+THEAD>fA?MOVE IT 


1307 




INC 


IX fNEXT 


1308 




DJNZ 


GETHD1 fLOOP 


1309 




JP 


CKCRC i CHECK CRC & RETURN 


1310 








1311 








1312 








1313 








1314 


} SKIP A 


CASSETTE FILE 


1315 








1316 


i THIS 


ROUTINE SKIPS A FILE ON TAPE 


1317 


J WITHOUT LOADING IT INTO MEMORY. 


1318 








1319 








1320 


skip'fl: 


EQU 


$ 


1321 




CALL 


TAPWT J WAIT FOR THE NULLS 


1322 


i 


LD 


E»(IY+THEAD+HSIZE)5GET BLK SI 


1323 




LD 


Dr ( IY+THEAD+HSIZE+1 > 


1324 


skipfi: 


CALL 


BLKADJ »G0 ADJUST BLOCK 


1325 




RET 


Z JTHAT ' S ALL! 


1326 


SKIPF25 


CALL 


TAPEIN *GET FROM TAPE 


1327 




JP 


ZrFINISH 


1328 




DJNZ 


SKIPF2 J FOR ENTIRE BLOCK 


1329 




CALL 


CKCRC } CHECK CRC 


1330 




JR 


SKIPFI JMORE- 


1331 


A 

f 






1332 


f CHECK CRC ON TAPE 


1333 


f 






1334 


ckcrc; 


EQU 


$ 


1335 




LD 


Br(IY+CRCBYT) 


1336 




CALL 


TAPEIN 


1337 




Li 


tt 


1338 


, 


JP— 


— N2-TERR5RC 


1339 




RET 
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E759 








1341 








E759 








1342 








E759 








1343 








E759 








1344 


i TAPE WAIT ROUTINE 


E759 








1345 








E759 








1346 


i THIS 


ROUTINE WAITS FOR TEN NULLS 


E759 








1347 


} FOLLOWED BY OTHER NULLS TILL A 1 


E759 








1348 










E759 




1349 


tapwt: 


EQU 


$ 


E759 


C5 






1350 




PUSH 


BC fWE DESTROY 


E75A 


06 


OA 




1351 


TAPWT1J 


LD 


BrlO 


E75C 


CD 


DA 


E2 


1352 


TAPWT2J 


CALL 


TAPEIN 


E75F 


CA 


D4 


El 


1353 




JP 


ZfFINISH 


E762 


B7 






1354 




OR 


A IIS IT A NULL? 


E763 


20 


F5 




1355 




JR 


NZfTAPWTl ?NO-START OVER 


E765 


10 


F5 




1356 




DJNZ 


TAPWT2 fLOOP FOR 10 


E767 


CD 


DA 


E2 


1357 


TAPWT3: 


CALL 


TAPEIN 


E76A 


CA 


D4 


El 


1358 




JP 


ZFFINISH 


E76D 


FE 


01 




1359 




CP 


i ;a ONE? 


E76F 


20 


F6 




1360 




JR 


NZrTAPWT3 


E771 


FD 


70 


46 


1361 




LD 


<IY+CRCBYT)fBfCLEAR CRC 


E774 


CI 






1362 




POP 


BC 


E775 


C9 






1363 




RET 




E776 
E776 
E776 








1364 
1365 
1366 




















E776 








1367 








E776 








1368 


t PARALLEL 


I/O ROUTINES 


E776 








1369 








E776 








1370 










E776 




1371 


parin: 


EQU 


$ 


E776 


DB 


FE 




1372 




IN 


AfOFEH 


E778 


CB 


7F 




1373 




BIT 


7fA 


E77A 


28 


FA 




1374 




JR 


ZfPARIN 


E77C 


DB 


FF 




1375 




IN 


AfOFFH 


E77E 


C9 






1376 




RET 




E77F 








1377 


* 
f 








E77F 




1378 


parout: 


EQU 


$ 


E77F 


F5 






1379 




PUSH 


AF 


E780 


DB 


FE 




1380 


paroti; 


IN 


AfOFEH 


E782 


CB 


77 




1381 




BIT 


6rA 


E784 


28 


FA 




1382 




JR 


Zf PAROTI 


E786 


Fl 






1383 




POP 


AF 


E787 


D3 


FF 




1384 




OUT 


OFFH*A 


E789 


C9 






1385 




RET 
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E78A 








1387 










E78A 


* 






1388 










E78A 






« 


1389 










E78A 








1390 


r * LOAD COMMAND 


' 


E78A 








1391 










E78A 








1392 










E7SA 








1393 












E78A 




1394 


load: 


EQU 


$ 




E78A 


CD 


2F 


E2 


1395 




CALL • 


SCANHL 


JSKIP "Lff* 


E78D 


2B 






1396 


L0AD1J 


DEC 


HL 


?CHK FOR "G" 


E78E 


7E 






1397 


' 


LD 


Af(HL) 




E78F 


FE 


30 




1398 




CP 


'0' 




E791 


38 


FA 




1399 




JR 


CfLOADl 


fSKIP DELIMS 


E793 


FE 


47 




1400 




CP 


'6' 


JIS IT A "G" 


E795 


F5 






1401 




PUSH 


AF 


f SAVE TEST FLGS 


E796 


CD 


64 


E2 


1402 




CALL 


/ NAMFND 


5GET name 


E799 


F5 






1403 


LODBAS: 


PUSH 


AF 


rSAVE ALSO 


E79A 


06 


01 




1404 




LD 


BfI 


f DEFAULT UNIT 


E79C 


F5 






1405 




PUSH 


AF 


tFOR later 


E79D 


28 


19 




1406 




JR 


ZfL0AD3 


?go load 


E79F 


Fl 






1407 




POP 


AF 


f DON'T NEED 


E7A0 


38 


07 




1408 




JR 


CfL0AD2 




E7A2 


CD 


32 


E2 


1409 




CALL 


SCANLT 


5SKIP name 


E7A5 


F5 






1410 




PUSH 


AF 




E7A6 


28 


10 




1411 




JR 


2fL0AD3 


;go load 


E7A8 


Fl 






1412 




POP 


AF 




E7A9 


CD 


3D 


E2 


1413 


L0AD2t 


CALL 


CONV 


fMAKE unit 


E7AC 


"43 






1414 




LD 


BfE 


? IN b 


E7AD 


CD 


25 


E2 


1415 




CALL 


SCAN 


J SKIP OVER 


E7B0 


F5 






1416 




PUSH 


AF 


JSAVE FLAGS 


E7B1 


28 


05 




1417 




JR 


ZfL0AD3 


?G0 LOAD IF EOL 


E7B3 


C5 






1418 




PUSH 


BC 




E7B4 


CD 


3D 


E2 


1419 




GALL 


CONV 




E7B7 


CI 






1420 




POP 


BC 


JRESTORE 


E7B8 


CD 


05 


E2 


1421 


L0AD3: 


CALL 


CRLF 


f START WITH FRESH L 


E7BB 


CD 


8A 


E2 


1422 




CALL 


MOTRON 


?WHAT a turn on j 


E7BE 


D5 






1423/ 


L0AD3AJ 


PUSH 


HE 


JLOAD ADDRESS 


E7BF 


CD 


IB 


E7 


1424 


' f 


CALL 


GETHED 


?GET HEADER 


E7C2 


FD 


7E 


5C 


1425 




LD 


Af(IY+THEAD+5)fGET EXIDY FILE 


E7C5 


B7 






1426 


1 


OR 


A 


?SET FLAGS 


E7C6 


28 


OB 




1427 


/ 


JR 


ZfL0AD3B 


fNO PRINTING FOR PT 


E7C8 


E5 






1428 




PUSH 


HL 


fWE NEED RIGHT NOW! 


E7C9 


21 


CA 


E4 


1429 


t 


LD 


HLrFNDMSG 


f POINT TO "FOUND -■ 


E7CC 


CD 


BA 


El 


1430 


i 


CALL 


MSGOUT 


rPRINT IT 


E7CF 


CD 


DE 


E6 


1431 


■i 


CALL 


HEDPRT 


? PR I NT TAPE HEADER 


E7D2 


El 






1432 




POP 


HL 


5 GET BACK 


E7D3 


Dl 






1433 


L0AD3BJ 


POP 


DE 


f RESTORE ADD 


E7D4 . 


Fl 






1434 




POP 


AF 


?FLAGS 


E7D5 


FS 






1435 




PUSH 


AF 




E7D6 


20 


06 




1436 




JR 


HZ 9 LOADS 


J ADD IN HEADER 


E7D8 


FD 


5E 


60 


1437 




LD 


Er(IY+THEAD+HADDR)?GET ADD 


E7DB 


FD 


56 


61 


1438 




LD 


Dr ( IY+THEAD+HADDR+ 1 ) 


E7DE 


El 






1439 


loads; 


POP 


HL 




E7DF 


Fl 






1440 




POP 


AF 


rNAME? 


E7E0 


FS 






1441 




PUSH 


AF 


?PUT BACK 


E7E1 


E5 






1442 




PUSH 


HL 


fDITTO 


E7E2 


28 


14 




1443 




JR 


ZfL0AD7 


fNOPE-GO LOAD 


E7E4 


38 


12 




1444 




JR 


CfL0AD7 





LINE 



CHECK 
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E7E6 


FD E5 


E7E8 


DD El 


E7EA 


06 05 


E7EC 


DD 7E A7 


E7EF 


DD BE 57 


E7F2 


DD 23 


E7F4 


20 49 


E7F6 


10 F4 


E7F8 


FD 7E 5C 


E7FB 


B7 


E7FC 


28 09 


E7FE 


21 BF E4 


E801 


CD BA El 


E804 


CD 59 E7 


E807 


EB 


E808 


FD 5E 5E 


E80B 


FD 56 5F 


E80E 


CD A9 E6 


E811 


28 OF 


E813 


CD DA E2 


E816 


CA D4 El 


E819 


77 


E81A 


23 


E81B 


10 F6 


E81D 
E820 


CD 41El^ 
18 ECr^ 


E822 


CD AF E2 


E825 


21 53 E4 


E828 


CD BA El 


E82B 


CD DE E6 


E82E 


Fl 


E82F 


Fl 


E830 


Fl 


E831 


CO 


E832 


FD 7E 5D 


E835 


E6 80 


E837 


CO 


E838 


FD 6E 62 


E83B 


FD 66 63 


E83E 


E9 


E83F 


CDJ34^£Z 


E842 


c(bE Ep 



1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 



L0AD6: 



L0AD7: 



L0AD7A: 

L0AD8:\ 
L0AD9J ! 



PUSH 
POP 
LD 
LD 
CP 
INC 
JR 

DJNZ 
LD 
OR 
JR 
LD 

CALL 
CALL 
EX 
LD 
LD 

CALL 
JR 

CALL 
JP 
LD 
INC 
DJNZ 
CALL 
JR 
L0AD10£_CALL 

■— bD 
: "CALL 
i -CALL 
r-.POP 
\ POP 
POP 
! RET 
I LD 
AND 
RET 
LD 
LD 
JP 

CALL 
JP 



X 



IY ?PUT IY 

IX f IN IX 

Br5 ?NAME LNGTH 

A, (IX+CHEAD)5GET 

<IX+THEAD>rSAME? 

IX rNEXT 

NZfLOADSK ?G0 SKIP 

L0AD6 ?KEEP GOIN 

Af<IY+THEAD+5)*GET EXIDY FILE CH 

A rSET FLAGS 

rNO PRINTING FOR.PT 
rPOINT TO "LOADING -» 
.PRINT IT 
JWAIT FOR NULLS 
JFLIP 'EM 

Ef<IY+THEAD+HSIZE)*GET BLK 

Dr(IY+THEAD+HSIZE+l) 

BLOCK 



Z,L0AD7A 

HLjLDGMSG 

MSGOUT 

TAPWT 

DErHL 



US 



; ADJUST 
f THRU 
rGET BYTE 
?USER WANTS 
?PUT AWAY 
?NEXT 

;do all blocks 

r CHECK CRC 

?LOOP FOR ALL BLOCKS 



LOADSKt 

J 



BLKADJ 
Z f LOAD 10 
TAPEIN 
ZjFINISH 
<HL)>A 
HL 

L0AK9 
(CKCREP 
DJSD8 
MTROFF rSHUT UP 
HLfFILHD ?POINT TO HEADING 
MSGOUT r PRINT IT 
HEDPRT ?G0 PRINT HEADER 
AF 
AF 
AF 

NZ JWE'RE THRU 
A*<IY+THEAD+HTYPE)*GET FILE TYPE 
80H fDATA FILE? 
NZ >YES! GO BACK- 
L/C IY+THEAD+HXEGHGET XEQ ADDR 
Hf (IY+THEAD+HXEQ+1) 
(HL) >G0 DO IT! ! 
SKIPFL ?G0 OVER IT! 
L0AD3A 
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E845 


• 




E845 




t 


E845 






E845 






E845 






E845 






E845 


E845 




E845 


FD E5 




E847 


El 




E848 


7E 




E849 


FE OD 




E84B 


CA DE 


El 


E84E 


FE 3D 




E850 


23 


\ 


E851 


20 F5 




E853 


7E 




E854 


FD 77 


44 


E857 


C9 




E858 






E858 






E858 






E858 






E858 






E858 






E858 


• 




E858 


E858 




E858 


FD 70 


43 


E85B 


C9 





1488 
1489 
1490 
1491 

1492 't 

1493 i 

1494 r 

1495 PRMPTC: 
1496 

i497 

149S prmpi: 

1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 

1507 » 

1508 » 

1509 i 

1510 i 
1511 
1512 
1513 
1514 
1515 
1516 
1517 



CHANGE PROMPT CHARACTER COMMAND 



EQU 

PUSH 

POP 

LD 

CP 

JP 

CP 

INC 

JR 

LD 

LD 

RET 



* 

IY 

HL 

A»(HL> 

CR 

ZfERRPAR 

HL 

NZ» PRMPI 

A»<HL> 

(IY+PROMPT)fA 



BATCH COMMAND 



batch: 



EQU 

LD 

RET 



<IY+BATCHF>»B*SET FLAG 
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E85C 








E85C 








E85C 








E85C 








E85C 








E85C 








E85C 










E85C 




E85C 


3E 


2A 




E85E 


CD 


45 


EO 


E861 


CD 


3A 


El 


E864 


FD 


E5 




E866 


El 






E867 


7E 






E868 


FE 


OD 




E86A 


C8 






E86B 


06 


01 




E86H 


CD 


8A 


E2 


E870 


CD 


C2 


E2 


E873 


7E 






E874 


23 






E875 


CD 


EE 


E2 


E878 


FE 


OD 




E87A 


20 


F7 




E87C 


CD 


9B 


E8 


E87F 


CD 


AF 


E2 


E882 


18 


D8 




E884 








E884 








E884 








E884 








E884 








E884 








E884 








E884 










E884 




E884 


06 


01 




E886 


CD 


8A 


E2 


E889 


CD 


05 


E2 


E88C 


CD 


59 


E7 


E88F 


CD 


DA 


E2 


E892 


FE 


OD 




E894 


28 


F3 




E896 


CD 


45 


EO 


E899 


18 


F4 




E89B 








E89B 








E89B 










E89B 




E89B 


FD 


7E 


46 


E89E 


C3 


EE 


E2 



1519 


* 

r 








1520 


A 

r 








1521 


* 

r 








1522 


* 
f 


CREAT BATCH FILE COMMAND 


1523 


* 








1524 


A 

9 








1525 


A 








1526 


creat: 


EGU 


* 




1527 




LD 


Af'*' 




1528 




CALL 


CHROUT 




1529 




CALL 


LINEIN 


?GET A LINE 


1530 




PUSH 


IY 


JMOVE IY 


1531 




POP 


HL 


J TO HL 


1532 




LD 


Af (HL) 




1533 




CP 


CR 


?SEE IF END 


1534 




RET 


Z 


?YES! 


1535 




LD 


Bfl 




1536 




CALL 


MOTRON 


J TURN ON 


1537 




CALL 


NULL 


5 SEND NULLS 


1538 


CREATl 


: LD 


Af (HL) 


?GET 


1539 




INC 


HL-', 


?NEXT 


1540 




CALL 


TAPOUT 


J SEND 


1541 




CP 


CR 


fEND? 


1542 




JR 


NZfCREATl 


fNO 


1543 




CALL 


WRCRC 


JWRITE crc 


1544 




CALL 


MTROFF 


fOFF 


1545 




JR 


CREAT 


fCONTINUE 


1546 

j c 41 










1547 










1548 










1549 










1550 




LIST BATCH FILE COMMAND 


1551 










1552 










1553 










1554 


list: 


EQU 


* 




1555 




LD 


Brl 




1556 




CALL 


MOTRON 


fTURN ON 


1557 


listi: 


CALL 


CRLF 


JNEW LINE 


1558 




CALL 


TAPWT 


5WAIT FOR N 


1559 


LIST3: 


CALL 


TAPEIN 


fGET 


1560 




CP 


CR 


JIS IT? 


1561 




JR 


ZfLISTl 


fYES! 


1562 




CALL 


CHROUT 


fPRINT IT 


1563 




JR 


LIST3 


^CONTINUE 


1564 


* 

f 








1565 


* 

f 


WRITE CRtf TO TAPE 




1566 


r 


. 






1567 


wrcrc; 


EQU 


$ 




1568 




LD 


Af (IY+CRCBYT) 


1569 




JP 


TAPOUT 


fGO WRITE % 



NULLS 



RETURN 
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E8A1 






1571 










E8A1 






1572 










E8A1 


* 




1573 










E8A1 




« 


1574 


r, ...MEMORY 


TEST COMMAND 


E8A1 






1575 










E8A1 






1576 










E8A1 






1577 












E8A1 


1578 


test: 


EQU 


$ 




E8A1 


CD 


2F E2 


1579 




CALL 


SCANHL 


fSKIP 1TE" 


E8A4 


CA 


DE El 


1580 




..JP * 


ZfERRPAR 




E8A7 


CD 


3D E2 


1581 


• 


CALL 


CONV 


?GET FROM 


E8AA 


D5 




1582 




PUSH 


DE 


?AND SAVE IT 


E8AB 


CD 


25 E2 


1583 




CALL 


SCAN 


fSKIP DELIMS 


E8AE 


CA 


DE El 


1584 




JP 


Z f ERRPAR 




E8B1 


CD 


3D E2 


1585 




CALL 


CONV 


fGET TO 


E8B4 


D5 


V 


1586 




PUSH 


DE 


iSAVE TO 


E8B5 


CD 


25 E2 


1587 




CALL 


SCAN 


fSEE IF CONTINUOUS 


E8B8 


Dl 




1588 




POP 


DE 




E8B9 


El 




1589 




POP 


HL 


JGET FROM STACK 


E8BA 


01 


01 00 


1590 




LD 


BCf 1 


rSET PASS COUNTER 


E8BD 


FE 


43 


1591 


testi; 


CP 


'C 


tSET CONTINUOUS FLAGS 


E8BF 


F5 




1592 




PUSH 


AF 


t IN STACK 


E8C0 


D5 




1593 




PUSH 


DE 


5PUT BACK TO & FROM 


E8C1 


E5 




1594 




PUSH 


HL 




E8C2 


C5 




1595 




PUSH 


BC 




E8C3 


06 


00 


1596 




LD 


B>0 


f GREAT MASK 


E8C5 


08 




1597 




EX 


AFjAF' 




E8C6 


AF 




1598 




XOR 


A 




E8C7 


08 




1599 




EX 


AF,AF' 




E8C8 


CD 


2F E9 


1600 


TEST2: 


CALL 


REGRST 




E8CB 


70 




1601 


stuffi: 


LD 


(HL)rB 


5PUT MASK IN MEM 


E8CC 


23 




1602 




INC 


HL 


fNEXT MEMORY 


E8CD 


CD 


3C E9 


1603 




CALL 


ENDCK 


*SEE IF THRU 


ESDO 


20 


F9 


1604 




JR 


NZfSTUFFI 


? GO ON IF NOT! 


SD2 


CD 


Dl EA 


1605 




CALL 


GUIK 


5SEE IF USER WANTS US 


;D5 


CD 


81 E9 


1606 




CALL 


STARPT 


rPRINT "*■ 


L.8D8 


C2 


D4 El 


1607 




JP 


NZfFINISH 


*G0 TO HIM IF SO 


E8DB 


CD 


2F E9 


1608 




CALL 


REGRST 


?GET TO % FROM 


E8DE 


78 




1609 


checki: 


LD 


A>B 




, E8DF 


BE 




1610 




CP 


(HL) 


JIS IT OK? 


E8E0 


CA 


42 E9 


1611 




CALL 


NZrBADBYT 


i NO-GO SAY SO! 


E8E3 


23 




1612 




INC 


HL 


?NEXT ONE 


E8E4 


CD 


3C E9 


1613 




CALL 


ENDCK 


JEND? 


E8E7 


20 


F5 


1614 




JR 


NZfCHECKl 


?N0! 


E8E9 


CD 


85 E9 


1615 




CALL 


STARP2 


> ERASE "*" 


E8EC 


04 




1616 




INC 


B 


JNEW MASK 


E8ED 


.20 


D9 


1617 




JR 


NZ>TEST2 


rCONTINUE FOR 255 


E8EF 


OE 


00 


1618 




LD 


CrO 


f CREATE MASK 


E8F1 


41 




1619 


TEST3: 


LD 


BrC 


?PUT IN PROPER PLACE 


E8F2 


CD 


2F E9 


1620 




CALL 


REGRST 




E8F5 


70 




1621 


STUFF3: 


LD 


(HL)fB 




E8F6 


23 




1622 




INC 


HL 


?NEXT 


E8F7 


04 




1623 




INC 


B 


r SHIFT MASK 


E8F8 


CD 


3C E9 


1624 




CALL 


ENDCK 


?END? 


E8FB 


20 


F8 


1625 




JR 


NZfSTUFF3 


fNO 


E8FD 


41 




1626 




LD 


B,C 


JRESET 


E8FE 


CD 


Dl EA 


1627 




CALL 


QUIK 


?IS HE THERE? 


E901 


CD 


81 E9 


1628 




CALL 


STARPT 


? PRINT "*■ 
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E904 


C2 


D4 


El 


E907 


CD 


2F 


E9 


E90A 


78 






E90B 


BE 






E90C 


C4 


42 


E9 


E90F 


23 






E910 


04 






E911 


CD 


3C 


E9 


E914 


20 


F4 




E916 


CD 


85 


E9 


E919 


OC 






E91A 


20 


D5 




E91C 








E91C 


Dl 






E91D 


D5 






E91E 


CI 






E91F 


CD 


OF 


E2 


E922 


21 


AB 


E4 


E925 


CD 


BA 


El 


E928 


El 






E929 


Dl 






E92A 


Fl 






E92B 


CO 






E92C 


03 






E92D 


18 


8E 




E92F 








E92F 








E92F 








E92F 










E92F 




E92F 


D9 






E930 


El 






E931 


Dl 






E932 


D9 






E933 


El 






E934 


Dl 






E935 


D5 






E936 


E5 






E937 


D9 






E938 


D5 






E939 


E5 






E93A 


D9 






E93B 


C9 






E93C 










E93C 




E93C 


7A 






E93D 


BC 






E93E 


CO 






E93F 


7B 






E940 


BD 






E941 


C9 






E942 










E942 




E942 


08 






E943 


20 


OB 




E945 


E5 






E946 


21 


75 


E4 


E949 


CD 


BA 


El 



1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 
1684 
1685 
1686 
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Jp 


NZfFINISH 


; YES-GO TO HIM! 


CALL 


REGRST 




LD 


A*B 




CP 


(HL) 


JIS IT OK? 


CALL 


NZtBADBYT 


>N0! 


INC 


HL 


?NEXT 


INC 


B 


JMASK TOO 


CALL 


ENDCK 


f THRU? 


JR 


NZ>CHECK3 


,N0 


CALL 


STARP2 


JERASE ■*' 


INC 


C 


► 


JR 


NZ,TEST3 




POP 


DE 


?GET PASS COUNT 


PUSH 


DE 


JNOW-MOVE IT TO BC 


POP 


BC 




CALL 


ADDCOL 


; PRINT PASS * 


LD 


HL>PSCMSG 


J PRINT PASS MESSAG 


CALL 


MSGOUT 




POP 


HL 


JGET EVERYTHING OF 


POP 


DE 




POP 


AF 




RET 


NZ 


JNOT CONTINUOUS 


INC 


BC 


f NEW PASS 


JR 


TEST1 


t GO START OVER 



TEST PROGRAM UTILITIES 



REGRST : 



ENDCK : 



badbyt: 



EQU 

EXX 

POP " 

POP 

EXX 

POP 

POP 

PUSH 

PUSH 

EXX 

PUSH 

PUSH 

EXX 

RET 

EQU 

LD 

CP 

RET 

LD 

CP 

RET 

EQU 

EX 

JR 

PUSH 

LD 

CALL 



$ 

HL 

DE 

HL 
DE 
DE 
HL 

DE 
HL 



$ 

AfD 

H 

NZ 

A>E 

L 



* 
AF/AF' 

NZpBADB2 
HL 

HLfTESTHD 
MSGOUT 



?SAVE- REGISTERS- 

JGET RET ADDRESS 

JTWICE 

5P0INT OUR REGS 



5 PUT BACK 



*PUT BACK RETURNS 



?GET FHEADING FLAGS 
?G0 AROUNIJ HEADING 
?WE NEED 
fPOINT HEADING 
. f PRINT IT 
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E94C 


El. 




E94D 


3E 55 


t 


E94F 


B7 




E950 


08 




E951 


C5 




E952 


D5 




E953 


EB 




E954 


CD Dl 


EA 


E957 


C2 D4 


Ei 


E95A 


CD OF 


E2 


E95D 


06 05 




E95F 


CD D2 


E2 


E962 


EB 




-"63 


Dl 




64 


OE 01 


1 


766 


7E 




£967 


A8 




E968 


Al 




E969 


E5 




E96A 


20 10 




E96C 


21 A6 


E4 


E96F 


CD BA 


El 


E972 


El 




E973 


CB 21 




E975 


30 EF 




E977 


CI 




E978 


CD 05 


E2 


E97B 


C9 




E97C 


21 Al 


E4 


E97F 


18 EE 
E981 




E981 


3E 2A 




E983 


18 02 




E985 


3E 08 




E987 


C3 OC 


EO 
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1687 




POP 


HL 




1688 




LD 


Af55H 


»SET HEADING FLAGS 


1689 


. 


OR. 


A 


5 SET THOSE FLAGS! 


1690 


BADB2: 


EX 


AFrAF' 


J PUT IT BACK! 


1691 




PUSH 


BC 




1692 




PUSH 


DE 


91 NEED DE 


1693 




EX 


DEfHL 


', FOR HL 


1694 




CALL 


QUIK 


fSEE IF. HE'S THERE 


1695 




JP 


NZfFINISH 


JYEP-GO TO HIM 


1696 


■ 


CALL 


ADDCOL 


> PRINT ADDRESS 


1697 




LD 


Bf5 


J PRINT 5 SPACES 


1698 




CALL 


SPACES 




1699 




EX 


DEfHL 




1700 




POP 


DE 


J RESTORE EVERYTHING 


1701 




LD 


Crl 


i CREATE MASK 


1702 


BADBY2: 


LD 


Af <HL) 




1703 




XOR 


B 


JSET ERROR BITS 


1704 




AND 


C 


J PEEL OFF CURRENT BITS 


1705 




PUSH 


HL 


?I NEED 


1706 




JR 


NZfBADBIT 




1707 




LD 


HLfOKMSG 




1708 


BADBY3: 


CALL 


MSGOUT 


?PRINT MESSAGE 


1709 




POP 


HL 


J RESTORE 


1710 




SLA 


C 


J ROTATE MASK 


1711 




JR 


NCfBADBY2 


fLOOP TILL ROTATE THRU 


1712 




POP 


BC 


J RESTORE "C" 


1713 




CALL 


CRLF 


JNEW LINE! 


1714 




RET 






1715 


badbit: 


LD 


HLfBADMSG 


J POINT BAD MSG 


1716 




JR 


BADBY3 


JPRINT IT UP THERE! 


1717 


starpt: 


EQU 


* 




1718 




LD 


Af '*' 




1719 




JR 


STARP3 


*G0 PRINT IT 


1720 


STARP2: 


LD 


AfCNTRLH 


J FORM BACKSPACE 


1721 


STARP3J 


JP 


SEND 


JGO PRINT IT & RET 
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E98A 






1723 f 








E98A 






1724 f 








E98A 






1725 ? 








E98A 






1726 f PROM PACK COMMAND 




E98A 






1727 f 








E98A 






1728 f 








E98A 






1729 f 










E98A 


1730 PROMPKJ 


EQU 


$ 




E98A 


CD 


2F E2 


1731 


CALL 


SCANHL 


?SKIP "PP" 


E98D 


C2 


FD DF 


1732 PRQMP1J 


JP 


NZrPCOLD 


5 COLD START 


E990 


C3 


FA DF 


1733 


JP 


PWARM 


J WARM START 


E993 






1734 t 








E993 






1735 r PROM 


PACK 


EQUATES 




E993 






1736 f 










DFFD 


1737 pcold: 


EQU 


ODFFDH 






DFFA 


1738 pwarm: 


EQU 


ODFFAH 




E993 






1739 t 








E993 






1740 f 








E993 






1741 f 








E993 






1742 j 








E993 






1743 f 








E993 






1744 f CENTRONICS PRINTER 


C DRIVER 


E993 






1745 f 








E993 






1746 f 










E993 


1747 CENDRV: 


EQU 


* 




E993 






1748 f 








E993 


F5 




1749 


PUSH 


AF 




E994 


CD 


IB EO 


1750 


CALL 


VIDEO 




E997 


FE 


OA 


1751 


CP 


LF 




E999 


28 


14 


1752 


JR 


If CENGBK 




E99B 


F5 




1753 


PUSH 


AF 




E99C 


DB 


FF 


1754 cenbsy: 


IN 


A*OFFH 




E99E 


CB 


7F 


1755 


BIT 


7rA 




E9A0 


20 


FA 


1756 


JR 


NZfCENBSY 




E9A2 


Fl 




1757 


POP 


AF 




E9A3 


F6 


80 


1758 ,.. 


OR 


80H 




E9A5 


D3 


FF 


1759 


OUT 


OFFHf A 




E9A7 


E6 


7F 


1760 


AND 


7FH 




E9A9 


D3 


FF 


1761 


OUT 


OFFHfA 




E9AB 


F6 


80 


1762 


OR 


80H 




E9AD 


D3 


FF 


1763 


OUT 


OFFHfA 




E9AF 


FI 




1764 cengbk: 


POP 


AF 




E9B0 


C9 




1765 


RET 
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E9B1 








E9B1 






f 


E9B1 








E9B1 








E9B1 








E9B1 








E9B1 








E9B1 








E9B1 










E9B1 




E9B1 


21 


80 


FO 


E9B4 


3E 


F8 




E9B6 


36 


20 




E9B8 


23 






E9B9 


BC 


i 




E9BA 


20 


FA 




E9BC 


65 






E9BD 


FD 


75 


68 


E9C0 


FD 


74 


69 


E9C3 


FD 


75 


6A 


E9C6 


FD 


74 


6B 


E9C9 


CD 


10 


EB 


E9CC 








E9CC 








E9CC 










E.9CC 




E9CC 


CD 


D6 


E9 


E9CF 


7E 






E9D0 


FD 


77 


67 


E9D3 


36 


5F 




E9D5 


C9 






E9D6 








E9D6 








E9D6 










E9D6 




E9D6 


21 


80 


FO 


E9D9 


FD 


5E 


68 


E9DC 


FD 


56 


69 


' E9DF 


19 






E9E0 


FD 


5E 


6A 


E9E3 


FD 


56 


6B 


E9E6 


19 






E9E7 


C9 






E9E8 








E9E8 








E9E8 


* 








E9E8 




E9E8 


CD 


D6 


E9 


E9EB 


FD 


7E 


67 


E9EE 


77 






E9EF 


C9 







1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 

1776 vidint: 

1777 

1778 

1779 CLRi: 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 f 

1790 f 

1791 > 

1792 wcur; 

1793 
1794 
1795 
1796 
1797 

1798 f 

1799 f 

1800 f 

1801 ptrset: 

1802 ; 
1803 
1804 
1805 
1806 
1807 
1808 
1809 

1810 f 

1811 r 

1812 j 

1813 REC: 
1814 
1815 
1816 
1817 



VIDEO DRIVER ROUTINE'S 



INITIALIZE VIDEO BOARD 



EQU * 

LD HLfVID 

LD A>TOPHRG 

LD <HL)> SPACE 

INC HL 

CP H 

JR NZfCLRl 

LD H,L 

LD <IY+LINE),L 

LD <IY+LINE+l)fH 

LD <IY+CHR>*L 

LD <IY+CHR+l)rH 

CALL WCSET JMOVE 



WRITE CURSOR ROUTINE 



USER CHR SET 



EQU 

CALL 

LD 

LD 

LD 

RET 



$ 

PTRSET 

Ar(HL) 

<IY+VDHLD)fA 

(HDrOSFH 



SET CURSOR POINTER ROUTINE 



EQU $ 

LD HLfVID 

LD Ef (IY+LINE) 

LD D><IY+LINE+1> 

ADD HLfDE 

LD E><IY+CHR) 

LD D>(IY+CHR+i> 

ADD HLrDE 

RET 



REPLACE CHARACTER UNDER CURSOR 



EQU 

CALL 

LD 

LD 

RET 



$ 

PTRSET 

A> (IY+VDHLD) 

<HL)> A 
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E9F0 








1819 


r 








E9F0 








1820 


* 
t 








E9F0 








1821 


* 
r 








E9F0 








1822 


f VIDEO DRIVER ENTRY 


POINT 


E9F0 








1823 


f 








E9F0 








1824 


A 

r 








E9F0 








1825 


* 
f 










E9F0 




1826 


chroti: 


EQU 


$ 




E9F0 


FD 


E5 




1827 




PUSH 


IY 




E9F2 


CD 


A2 


El 


1828 




CALL 


GETIY 




E9F5 


F5 






1829 




PUSH 


AF 




E9F6 


C5 






1830 




PUSH 


BC 




E9F7 


D5 






1831 




PUSH 


DE 




E9F8 


E5 






1832 




PUSH 


HL 




E9F9 


4F 






1833 




LD 


C>A 




E9FA 


CD 


E8 


E9 


1834 




CALL 


REC 


f REPLACE CURSOR 


E9FD 


79 






1835 




LD 


ArC 




E9FE 


FE 


OC 




1836 




CP 


OCH 


?FORM FEED 


EAOO 


28 


43 




1837 




JR 


ZrFRMFED 




EA02 


FE 


OD 




1838 




CP 


CR 


?CAR RET 


EA04 


28 


44 




1839 




JR 


If GARRET 




EA06 


FE 


OA 




1840 




CP 


LF 


JLINE FEED 


EA08 


28 


45 




1841 




JR 


ZfLINFED 




EAOA 


FE 


17 




1842 




CP 


CNTRLW 




EAOC 


CA 


A3 


EA 


1843 




JP 


ZfCURUP 




EAOF 


FE 


1A 




1844 




CP 


CNTRLZ 




EA11 


28 


3C 




1845 




JR 


.ZfLINFED 




EA13 


FE 


01 




1846 




CP 


CNTRLA 




EA15 


CA 


BA 


EA 


1847 




JP 


ZfCURLFT 




EA18 


FE 


13 




1848 




CP 


CNTRLS 




EA1A 


28 


18 




1849 




JR 


ZrCURRGT 




EA1C 


FE 


08 




1850 




CP 


CNTRLH 


y BACKSPACE? 


EA1E 


28 


72 




1851 




JR 


ZfBAKSPC 




EA20 


FE 


11 




1852 




CP 


CNTRLQ 


JHOME? 


EA22 


CA 


C3 


EA 


1853 




JP 


ZfHOMECU 




EA25 


FE 


20 




1854 




CP 


SPACE 




EA27 


30 


OA 




1855 




JR 


NCr OKDATA 




EA29 


CD 


CC 


E9 


1856 




CALL 


WCUR 




EA2C 








1857 


* 










EA2C 




1858 


return: 


EQU 


* 




EA2C 


El 






1859 




POP 


HL 




EA2D 


Dl 






1860 




POP 


DE 




EA2E 


CI 






1861 




POP 


BC 




EA2F 


Fl 






1862 




POP 


AF 




EA30 


FD 


El 




1863 




POP 


IY 




EA32 


C9 






1864 




RET 






EA33 








1865 


* 

f 








EA33 








1866 


f DATA 


OK FOR DISPLAY . 




EA33 








1867 


f 










EA33 




1868 


okdata: 


EQU 


$ 




EA33 


71 






1869 




LD 


" (HL)fC 






EA34 


* 


1870 


CURRGTJ 


EQU 


$ 




EA34 


13 






1871 




INC 


DE 




EA35 


7B 




- 


1872 




LD 


A*E 




EA36 


E6 


3F 




1873 




AND 


3FH 




EA38 


28 


06 




1874 




JR 


ZrNXLOC 




EA3A 


FD 


73 


6A 


'1875 


OKDATi: 


LD * 


<IY+CHR)>E 


i 


EA3D 


FD 


72 


6B 


1876 




LD 


(IY+CHR+1) 


»D 
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:A4o 


CD 


CC E9 


1877 


nxloc: 


CALL 


WCUR 


IA43 


18 


' E7 


1878 






JR 


RETURN 


ZA45 




* 


1879 


« 
f 








EA45 






1880 


A 

r 


FORM 


FEED * 




£A45 






1881 


* 
f 










EA4 


5 


1882 


frmfed: 


EQU 


* 


EA45 


CD 


Bl E9 


1883 






CALL 


VIDINT 


-:A48 


18 


E2 


1884 






JR 


RETURN 


A4A 






1885 


* 






• 


-A4A 






1886 


* 


CARRIAGE RETURN 


EA4A 






1887 


r 


► 








EA4A 


1888 


carret: 


EQU 


$ 


EA4A 


11 


00 00 


1889 






LD 


DEjO 


EA4D 


18 


EB 


1890 






JR 


0KDAT1 


EA4F 






1891 


* 

9 








EA4F 




i 


1892 


A 

T 


LINE FEED 


ROUTINE 


EA4F 






1893 


* 
f 










EA4F 


1894 


linfed: 


EQU 


* 


EA4F 


FD 


5E 68 


1895 






LD 


Ef (IY+LINE) 


EA52 


FD 


56 69 


1896 






LD 


D»(IY+LINE+1) 


EA55 


7B 




1897 






LD 


AfE 


EA56 


E6 


CO 


1898 






AND 


0C0H 


EA58 


CB 


07 


1899 






RLC 


A 


EA5A 


CB 


07 


1900 






RLC 


A 


EA5C 


CB 


22 


1901 






SLA 


D 


EASE 


CB 


22 


1902 






SLA 


D 


EA60 


B2 




1903 






OR 


D 


EA61 


FE 


ID 


1904 






CP 


1DH 


EA63 


28 


15 


1905 






JR 


ZfLLN 


EA65 


FD 


6E 68 


1906 






LD 


L, (IY+LINE) 


EA6S 


FD 


66 6? 


1907 






LD 


Hf (IY+LINE+1) 


EA6B 


11 


40 00 


1908 






LD 


DE>64 


A6E 


19 




1909 






ADD 


HLfDE 


A6F 


FD 


75 68 


1910 






LD 


(IY+LINE)fL 


-A72 


FD 


74 69 


1911 






LD 


<IY+LINE+1)>H 


EA75 


CD 


CC E9 


1912 






CALL 


WCUR 


EA78 


18 


B2 


1913 






JR 


RETURN 


EA7A 


11 


80 FO 


1914 


lln: 


LD 


DErVID 


EA7D 


21 


CO FO 


1915 






LD 


HLfVID+64 


EA80 


01 


40 07 


1916 






LD 


BC>2048-192 


f EA83 


ED 


BO 


1917 






LDIR 




EA85 


3E 


BF 


1918 


llni: 


LD 


AfOBFH 


EA87 


36 


20 


1919 






LD 


(HD* SPACE 


EA89 


2B 




1920 






DEC 


HL 


EA8A 


BD 




1921 






CP 


L 


EA8B 


20 


F8 


1922 






JR 


NZrLLNl 


EA8D 


CD 


CC E9 


1923 






CALL 


WCUR 


EA90 


18 


9A 


1924 






JR 


RETURN 


EA92 






1925 


A 

r 








EA92 






1926 


A 
f 


BACKSPACE 


: ROUTINE 


EA92 






1927 


A 
f 










EA92 


1928 


BAKSPCJ 


: EQU 


$ 


EA92 


3E 


01 


1929 






LD 


ArCNTRLA 


EA94 


CD 


45 EO 


1930 






CALL 


CHROUT 


EA97 


3E 


20 


1931 






LD 


At SPACE 


EA99 


CD 


45 EO 


1932 






CALL 


CHROUT 


EA9C 


3E 


01 


1933 






LD 


AyCNTRLA 


EA9E 


CD 


45 EO 


1934 






CALL 


CHROUT 
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EAA1 


18 


89 




1935 




JR 


RETURN 


EAA3 








1936 


r 






EAA3 








1937 


J CURSOR UP 1 


ROUTINE 


EAA3 








1938 


f 








EAA3 




1939 


curup: 


EQU 


$ 


EAA3 


FD 


5E 


68 


1940 




LD 


Ef (IY+LINE) 


EAA6 


FD 


56 


69 


1941 




LD 


Df (IY+LINE+1) 


EAA9 


7B 






1942 




LD 


A>E 


EAAA 


B2 






1943 




OR 


D 


EAAB 


28 


E3 




1944 




JR 


ZfBAKSPC-2 


EAAD 


EB 






1945 




EX 


DErHL 


EAAE 


11 


CO 


FF 


1946 




LD 


DEf-64 


EAB1 


19 






1947 




ADD 


HLyDE 


EAB2 


FD 


75 


68 


1948 




LD 


(IY+LINE) fL 


EAB5 


FD 


74 


69 


1949 




LD 


<IY+LINE+1)>H 


EAB8 


18 


86 




1950 




JR 


NXLOC 


EABA 








1951 


f 






EABA 








1952 


} CURSOR LEFT ROUTINE 


EABA 








1953 


* 








EABA 




1954 


curlft: 


EQU 


$ 


EABA 


7A 






1955 




LD 


AfD ' 


EABB 


B3 






1956 




OR 


E 


EABC 


CA 


2C 


EA 


1957 




JP 


Zr RETURN 


EABF 


IB 






1958 




DEC 


DE 


EACO 


C3 


3A 


EA 


1959 




JP 


0KDAT1 


EAC3 








1960 


* 
f 






EAC3 








1961 


? HOME UP 


CURSOR ROUTINE 


EAC3 








1962 


* 








EAC3 




1963 


homecu: 


EQU 


$ 


EAC3 


FD 


36 


68 00 


1964 




LD 


(IY+LINE)fO 


EAC7 


FD 


36 


69 00 


1965 




LD 


(IY+LINE+1) rO?HOME UP 


EACB 


11 


00 


00 


1966 




LD 


DE>0 


EACE 


C3 


3A 


EA 


1967 




JP 


0KDAT1 ?G0 HOME UP 



LINE' Cuuixi 



CHR AND ;r\t 
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EAD1 




196? 


* 




EAD1 


• 


1970 


9 




EAD1 


i 


1971 


* 

t 




EAD1 




1972 


t KEYBOARD QUICK CHECK' 


EAD1 




1973 


* 

? 




EAD1 




1974 


f SCANS FOR 


: CONTROL C 


EAD1 




1975 


* 


ESCAPE 


EAD1 




1976 


A 

9 


RUN / STOP 

* 


EAD1 


- 


1977 


* • 
f 




EAD1 




1978 


* 






EAD1 


1979 


quiKj equ 


* 




EAD1 


1980 


escchk: equ 


$ rFOR PREVIOUS ROUTINES 


EAD1 


FD E5 


1981 


PUSH 


IY 


EAD3 


CD A2 El 


1982 


CALL 


GETIY 


EAD6 


FD 7E v45 


1983 


LD 


A> (IY+CMTRFG)fGET MOTOR FLAG 


EAD9 


F6 01 


1984 


OR 


1 JSET MASK 


EADB 


D3 FE 


1985 


OUT 


KYPORTrA 


EADD 


DB FE 


1986 


IN 


AfKYPORT 


EADF 


CB 67 


1987 


BIT 


4>A 


EAE1 


28 13 


1988 


JR 


ZfQUIKl 


EAE3 


FD 7E 45 


1989 


LD 


Af (IYfCMTRFG)fGET FLAGS 


EAE6 


E6 FO 


1990 


AND 


OFOH fMASK FOR ZERO 


EAE8 


D3 FE 


1991 


OUT 


KYPORTrA 


EAEA 


DB FE 


1992 


IN 


AfKYPORT 


EAEC 


CB 47 


1993 


BIT 


0*A 


EAEE 


28 06 


1994 


JR 


ZfQUIKI 


EAFO 


CB 57 


1995 


BIT 


2f A 


EAF2 


28 06 


1996 


JR 


Z>QUIK3 


EAF4 


18 11 


1997 


JR 


QUKRTI ; 


EAF6 


3E IB 


1998 


QUIKi: LD 


A>ESC fFORM ESCAPE ',, 


EAFO 


18 12 


1999 


JR 


QUKRET 


EAFA 


FD 7E 45 


2000 


QUIK3: LD 


Af (IY+CMTRFG>?GET MOTOR FLAGS 


EAFD 


F6 03 


2001 


OR 


3 JSET MASK BITS 


FAFF 


D3 FE 


2002 


OUT 


KYPORT»A 


B01 


DB FE 


2003 


IN 


AfKYPORT 


ZB03 


CB 47 


2004 


BIT 


OfA 


EB05 


28 03 


2005 


JR 


Z>QUIK4 


EB07 


AF 


2006 


QUKRTi: XOR 


A 


, EB08 


18 02 


2007 


JR 


QUKRET 


EBOA 


3E 03 


2008 


QUIK4J LD 


AfCNTRLC 


EBOC 


B7 


2009 


qukret: OR 


A 


EBOD 


FD El 


2010 


POP 


IY 


EBOF 


C? 


2011 


RET 
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EB10 








2013 j 






EB10 








2014 > 






EB10 








2015 j 






EB10 








2016 i 


\ WRITE 


USER CHARAC 


EB10 








2017 I 






EB10 








2018 \ 






EB10 








2019 > 








EB10 




2020 wcset; equ 


$ 


EB10 


21 


FE 


ED 


2021 


LD 


HLfCHRSET 


EB13 


11 


00 


FC 


2022 


LD 


DEjOFCOOH 


EB16 


01 


00 


02 


2023 


LD 


BC512 


EB19 


ED 


BO 




2024 


LDIR 




EBiB 


C9 






2025 


RET 





SET 
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EB1C 








2027 










EB1C 


■ 






2028 










EB1C 






« 


2029 










EB1C 








2030 


f KEYBOARD INPUT ROUTINE ' 


EB1C 








2031 










EB1C 








2032 










EB1C 








2033 












EB1C 




2034 


CHRINIJ 


EQU 


$ 




EB1C 








2035 


J*************.************************ 


EB1C 








2036 


f KEYBOARD -INPUT ROUTINE 




EB1C 








2037 


AVERSION 1.0 


4/17/78 






OOFE 




2038 


kyport: 


EQU 


OFEH 


fON EXIDY COMPUTER 




0100 




2039 


dtime: 


EQU 


100H 


fTO BE DETERMINLD 


EB1C 








2040 


J*************************************** 


EB1C 








2041 


* 

F 








EB1C 






i 


2042 


A. 

f 








EB1C 








2043 


^INITIALIZATION 




EB1C 








2044 


A *■ 
F 








EB1C 


FD 


E5 




2045 


keybdj 


PUSH 


IY 




EB1E 


CD 


A2 


El 


2046 




CALL 


GETIY 




EB21 


C5 






2047 




PUSH 


BC 


fPUSH REGS ON STACK 


EB22 


D5 






2048 




PUSH 


DE 




EB23 


E5 






2049 




PUSH 


HL 




EB24 


DD 


E5 




2050 




PUSH 


IX 




EB26 


3E 


01 




2051 




LD 


AfI 


fLOOK FOR REPEAT KEY 


EB28 


D3 


FE 




2052 




OUT 


KYPORT f A 


fSEND MASK 


EB2A 


DB 


FE 




2053 




IN 


A t KYPORT 




EB2C 


CB 


4F 




2054 




BIT 


IfA 


f REPEAT? 


EB2E 


20 


OE 




2055 




JR 


NZf NORPT 


f NO-GO ON 


EB30 


01 


88 


13 


2056 




LD 


BCfSOOO 


f DELAY FOR REPEA I 


EB33 


OB 






2057 


repet: 


DEC 


BC 




EB34 


78 






2058 




LD 


AfB 




EB35 


Bl 






2059 




OR 


C 


fDONE? 


EB36 


20 


FB 




2060 




JR 


NZf REPET 


fNO- 


EB38 


FD 


7E 


6C 


2061 




LD 


A> (IY+LSTKLY; Fbt. i lhoi hu, 


EB3B 


C3 


10 


EC 


2062 




JP 


FINEND 


fGO BACK 


EB3E 


AF 






2063 


norpt: 


XOR 


A 


f CLEAR, A 


EB3F 


OE 


FE 




2064 




LD 


Cf KYPORT 


fLOAD KEYBOARD PORT NO* 


EB41 


5F 






2065 




LD 


EfA 


f CLEAR E 


EB42 


CB 


FB 




2066 




SET 


7fE 


fSET SCAN ONCE FLAG 


EB44 


16 


00 




2067 


mloop: 


LD 


DfO 


fCLEAR SPECIAL KEY FLAGS 


EB46 


42 






2068 




LD 


B>D 


J CLEAR NEW FLAGS REG 


EB47 


26 


00 




2069 




LD 


H»0 


f CLEAR SECTION COUNTER 


EB49 


DD 


21 


IE EC 


2070 




LD 


IX>INSTBL 


fLOAD INSTRUCTION TABLE POINTER 


EB4D 


ED 


61 




2071 


sloop: 


OUT 


<C)fH 


fOUTPUT SECTION NO. 


EB4F 


2E 


01 




2072 




LD 


Ltl 


fLOAD BIT POSITION REG 


EB51 


ED 


78 




2073 


bloop: 


IN 


Af<C) 


j INPUT SECTION BYTE 


EB53 


A5 






2074 




AND 


L 


fTEST bit 


EB54 


^C2 


E2 


EB 


2075 




JP 


NZfABITI 


fJUMP if BIT=1 


EB57 


E5 






2076 




PUSH 


HL 


5 LOAD DEBOUNCE TIMER 


EB58 


21 


00 


01 


2077 




LD 


HL, DTIME 


rLOAD TIME 


EB5B 


2D 






2078 


deboun: 


DEC 


L 


f COUNT DOWN 


EB5C 


20 


FD 




2079 




JR 


NZfDEBOUN 




EB5E 


25 






2080 




DEC 


H 




EB5F 


20 


FA 




2081 




JR 


NZfDEBOUN 




EB61 


El 






2082 




POP 


HL 


fRESTORE HL 


EB62 


ED 


78 




2083 




IN 


Af(C) 


f INPUT SECTION BYTE 


EB64 


A5 






2084 




AND 


L 


fTEST BIT 
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EB65 


C2 E2 EB 


EB68 


DD 56 00 


EB6B 


CB 7A 


EB6D 


28 1A 


EB6F 


CB 62 


EB71 


28 02 


EB73 


CB FO 


EB75 


CB 5A 


EB77 


28 02 


EB79 


CB E8 


EB7B 


CB 52 


EB7D 


28 02 


EB7F 


CB EO 


EB81 


CB 4A 


EB83 


28 5D 


EB85 


CB D8 


EB87 


18 59 


EB8? 


E5 


EB8A 


D5 


EB8B 


DD E5 


EB8D 


Ei 


EB8E 


11 IE EC 


EB91 


B7 


EB92 


ED 52 


EB94 




EB94 


Dl 


EB95 


CB 70 


EB97 


28 15 


EB99 


CB 72 


EB9B 


28 11 


EB9D 


D5 


EB9E 


11 6E EC 


EBA1 


19 


EBA2 


7E 


EBA3 


CB FF 


EBA5 


Dl 


EBA6 


CB 60 


EBA8 


28 26 


EBAA 


CB F7 


EBAC 


18 22 


EBAE 


D5 


EBAF 


CB 68 


EBB1 


28 05 


EBB3 


11 BE EC 


EBB6 


18 15 


EBB8 


CB 60 


EBBA 


28 05 


EBBC 


11 OE ED 


EBBF 


18 OC 


EBC1 


CB 58 


EBC3 


28 05 


EBC5 


11 5E ED 


EBC8 


18 03 


EBCA 


11 AE ED 


EBCD 


19 


EBCE 


Dl 


EBCF 


7E 


EBDO 


CB E3 



2085 




jp 


NZfABITI 


2086 




LD 


Dr(IX+0) 


2087 




BIT 


7rD 


2088 




JR 


Zf CODED 


2089 




BIT 


4fD 


2090 




JR 


ZfNONGRA 


2091 




SET 


6fB 


2092 


NONGRA 


: BIT 


3fD 


2093 




JR 


ZfNONCON 


2094 




SET 


5fB 


2095 


NONCON 


: BIT 


2fD 


2096 




JR 


ZfNONSHI 


2097 




SET 


4fB 


2098 


NONSHI 


E BIT 


IfD 


2099 




JR 


ZfABITI 


2100 




SET 


3fB 


2101 




JR 


ABIT1 


2102 


coded: 


PUSH 


HL 


2103 




PUSH 


DE 


2104 




PUSH 


IX 


2105 




POP 


HL 


2106 




LD 


DEfINSTBL 


2107 




OR 


A 


2108 




SBC 


HLfDE 


2109 


f DECIDE 


: WHICh 


1 TABLE TO 


2110 




POP 


,HE 


2111 




BIT 


6fB 


2112 




JR 


ZfNOGRAP 


2113 




BIT 


6fD 


2114 




JR 


ZfNOGRAP 


2115 




PUSH 


DE 


2116 




LD 


DEfGRATBL 


2117 




ADD 


HLfDE 


2118 




LD 


Af(HL> 


2119 




SET 


7fA 


2120 




POP 


DE 


2121 




BIT 


4fB 


2122 




JR 


ZfFINOP 


2123 




SET 


6fA 


2124 




JR 


FINOP 


2125 


nogra'p: 


PUSH 


DE 


2126 




BIT 


5rB 


2127 




JR 


ZfSKIPI 


2128 




LD 


DEfCONTBL 


2129 




JR 


SKIP4 


2130 skipi: 


BIT 


4fB 


2131 




JR 


ZfSKIP2 


2132 




LD 


DEfSHITBL 


2133 




JR 


.SKIP4 


2134 SKIP2: 


BIT 


3fB 


2135 




JR 


ZfSKIP3 


2136 




LD 


DEfSLOTBL 


2137 




JR 


SKIP4 


2138 SKIP3: 


LD 


DEfUNSTBL 


2139 SKIP4; 


ADD 


HLfDE 


2140 




POP 


DE 


2141 




LD 


Af(HL) 


2142 finop: 


SET 


4rE 



JUMP IF BIT=1 

LOAD SPECIAL KEY FLAGS 

TEST FOR CODED KEY 

JUMP IF CODED KEY 

TEST FOR GRAPHIC KEY 

JUMP IF NOT GRAPHIC KEY 

SET GRAPHIC FLAG 

TEST FOR CONTROL KEY 

JUMP IF NOT CONTROL KEY 

SET CONTROL FLAG 

TEST FOR SHIFT KEY 

JUMP IF NOT SHIFT KEY 

SET SHIFT FLAG 

TEST FOR SHIFT/LOCK KEY 

JUMP IF NOT SHIFT/LOCK KE 

SET SHIFT/LOCK FLAG 

CALCULATE TABLE POSITION 



r CLEAR CARRY 
USE 

f/TEST FOR GRAPHIC KEY 
fJUMP IF NO GRAPHIC KEY 
fTEST FOR NONGRAPHIC CHAR* 
fJUMP IF NOT GRAPHIC CHAR* 
r CALCULATE TABLE POINTER 
rLOAD GRAPHIC TABLE START 

rLOAD A WITH CODE 
fSET GRAPHIC BIT 
fTEST FOR SHIFT 

r JUMP IF NO SHIFT 
rSET SHIFT BIT 
fJUMP TO FINISH OP* 

fTEST FOR CONTROL KEY 
fSKIP IF NOT CONTROL KEY 
fLOAD CONTROL TABLE START 

fTEST FOR SHIFT KEY 
fSKIP IF NOT SHIFT KEY 
rLOAD SHIFT TABLE START 

fTEST FOR SHIFT/LOCK KEY 
fSKIP IF NOT SHIFT/LOCK KE V 
rLOAD SHIFT/LOCK TABLE STAf 

rLOAD UNSHIFT TABLE START 
f SETUP POINTER 

fLOAD A WITH CODE . 
rSET END OF SCAN FLAG 
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EBD2 

EBD4 

EBD6 

EBD8 

EBD9 

EBDA 

EBDC 

EBDD 

EBDF 

EBEO 

EBE2 

EBE4 

EBE6 

EBE7 

EBE9 

EBEB 

EBED 

EBEF 

EBF2 

EBF4 

EBF6 

EBF8 

EBF9 

EBFB 

EBFC 

EBFF 

EC01 

EC02 

EC04 

EC06 

EC07 

EC09 

ECOB 

ECOD 

EC10 

EC12 

EC13 

EC14 

EC15 

EC16 

EC18 

EC1B 

EC1D 

EC1E 

EC1E 

EC23 
EC23 

EC28 

EC2D 

EC32 

EC37 

EC3C 



CB DB 
Cfi D3 
CB BB 
El 
F5 

ED 78 
A5 

28 FB 
Fl 

18 OB 
CB 05 
3E 20 
BD 

20 02 
CB D3 
DD 23 1 
CB 53 
CA 51 
CB 93 
CB 5B 
20 07 
24 

3E 10 
BC 
C2 



EB 



4D EB 



CB 9B 

37 

CB 7B 

28 03 

AF 

CB E3 

CB 63 

20 03 

C3 44 EB 

DD El 

El 

Dl 

CI 

B7 

28 03 

FD 77 6C 

FD El 

C9 

00 90 88 82 
84 

40 80 00 40 

00 

40 40 40 40 

40 

40 40 40 40 

40 

40 40 40 40 

40 

40 40 40 40 

40 

40 40 40 40 



2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 



waitk: 



abiti: 



skips: 
bitend: 



secend: 



SKIP6: 



finend: 



keyret: 



SET 

SET 

RES 

POP* 

PUSH 

IN 

AND 

JR 

POP 

JR 

RLC 

LD 

CP 

JR 

SET 

INC 

BIT 

JP 

RES 

BIT 

JR 

INC 

LD 

CP 

JP 

RES 

SCF 

BIT 

JR 

XOR 

SET 

BIT 

JR 

JP 

POP 

POP 

POP 

POP 

OR 

JR 

LD 

POP 

RET 



3fE 

2rE 

7fE 

HL 

AF 

Af <C) 

L 

ZtUAITK 

AF 

BITEND 

L 

Af20H 

L 

NZfSKIPS 

2fE 

IX 

2rE 

ZfBLOOP 

2rE 

3rE 

NZf SECEND 

H 

Afl6 

H 

NZf SLOOP 

3>E 



7fE 

ZfSKIP6 

A 

4>E 

4fE 

NZfFINEND 

MLOOP 

IX 

HL 

DE 

BC 

A 

Zf KEYRET 

(IY+LSTKEY 

IY 



JSET SECTION FLAG 

?SET BIT POSITION FLAG 

t RESET SCAN ONCE FLAG 

fUAIT FOR KEY TO BE RELEASED 

f INPUT SECTION BYTE 



J SHIFT L 

fTEST FOR LAST BIT POSITION 

fSKIP IF NOT END 
5SET BIT POSITION FLAG 
f INCREMENT TABLE POINTER 
JTEST FOR BIT END 

JRESET BIT FLAG 
J TEST FOR SECTION FLAG 
JJUMP TO SECTION END 
r INCREMENT SECTION 
rTEST FOR END 

JSTAY IN LOOP 
.RESET SECTION FLAG 
?SET CARRY 
?TEST SCAN ONCE FLAG 



5 CLEAR A AND CARRY 
fSET END OF SCAN 
?TEST FOR END OF SCAN 
5JUMP TO FINISH TEST 

?RESTORE REGISTERS 



fNO CHAR TODAY 
>,A5SAVE IN CASE REPEAT 

f RETURN FROM SUBROUTINE 



INSTBL: DB 0,90H,88H,82H,84H ^INSTRUCTION TABLE(O) 



2188 ; 
2189 

2190 

2191 

2192 

2193 

2194 



DB 40H,80H>0>40H>0 ?(1) 

DB 40H>40H*40H*40H»40H ?<2) 

DB 40H,40H>40H*40Hr40H ?(3) 

DB 40H>40H»40H»40H>40H ?(4) 

DB 40H>40H>40H*40H*40H ?(5) 

DB 40H*40Hr40Hr40H*40H *<6) 
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40 






EC41 


40 40 40 40 
40 


2195 


DB 


EC46 


40 40 40 40 

40 

40 40 40 40 


2196 


DB 


EC4B 


2197 


DB 




40 






EC50 


40 40 40 40 
40 


2198 


DB 


EC55 


40 00 00 40 
40 


2199 


DB 


EC5A 


40 40 40 40 

00 


2200 


DB 


EC5F 


40 40 40 40 
40 


220.1. 


DB 


EC64 


40 40 00 40 
40 




DB 


EC69 


00 00 00 40 
40 


2203 


DB 


EC6E 


00 00 00 00 
00 


2204 gratbl: 


DB 


EC73 


OC 00 00 OD 
00 


2205 


DB 


EC78 


28 27 1A OE 
00 


2206 


DB 


EC7D 


29 1C IB OF 
01 


2207 


DB 


EC82 


ID 11 10 03 
02 


2208 


DB 


EC87 


2B 2A IE 12 . 

S\. A 


2209 


DB 


EC8C 


04 

2D 2C IF 13 

05 


2210 


DB 


EC91 


21 15 20 14 
06 


2211 


DB 


EC96 


2E 22 16 08 
07 


2212 


DB 


EC9B 


30 2F 23 17 
09 


2213 


DB 


ECAO 


25 24 19 18 

OA 


2214 


DB 


ECA5 


26 00 00 OC 
OB 


2215 


DB 


ECAA 


3C 38 35 31 
00 


2216 


DB 


ECAF 


3D 39 36 33 
32 


2217 


DB 


ECB4 


3E 3A 00 37 

~r A 


2218 


• DB 


ECB9 


34 

00 00 00 3F 

3B 


2219 


DB 


ECBE 


03 00 00 00 
00 


2220 CONTBL 


; DB 


ECC3 


OC 00 20 OB 
IB 


2221 


DB 


ECC8 


18 1A 01 11 
31 


2222 


DB 


ECCD 


03 04 13 17 


2223 


DB 
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40H>40Hr40H»40H>40H 5 (7) 
40H>40H»40H>40Hr40H J (8) 
40H»40H,40Hr40Hr40H 5 (9) 
40H»40H»40Hr40H>40H 5(A) 

40H>0»0»40Hr40H 5(B) 

40H r 40H f 40H » 40H 1 5(C) 
40H»40Hf40H740Hr40H 5(D) 

40H740HfO>40Hj40H 5(E) 
0*0*0t40Hj40H 5(F) 
0,0,0»0>0 5GRAPHIC TABLE(O) 
OCH,0,0,ODH,0 5(1) 
28H, 271-1,1 AH, OEHjO 5(2) 
29H,lCH,iBH,0FH,l 5(3) 
1DH,11H,10H,3»2 5(4) 
2BH,2AH,1EH,12H,4 5(5) 
2DH,2CH,1FH,13H,5 5(6) 
21H,15H,20H»14H,6 5(7) 
2EH,22H»16H,8,7 5(8) 
30H,2FH,23H,17H,9 5(9) 
25H,24H,19H,18H,0AH 5(A) 
26H,0,0,0CH,0BH 5(B) ' 
3CH,38H,35H,31H,0 5(C) 
3DH,39H,36H,33H,32H 5(D) 
3EH,3AH,0,37H,34H 5(E) 
0,0,0,3FH,3BH 5(F) 
3,0,0,0,0 J CONTROL TABLE(O) 
0CH,0,20H,0BH,1BH 5<1) 
18H,1AH,1,11H,31H 5(2) 
3,4,13H,f7H,32H 5(3) 
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78 


ECD2 


32 

06 12 0,5 


34 


2224 


DB 


6>12H,5,34H»33H ?<4) 




ECD7 


33 

02 16 07 


14 


2225 


DB 


2rl6H,7*14Hr'35H t (5) 




ECDC 


35 

OD OE 08 


19 


2226 


DB 


0DHr0EH>8fl9H>36H r(6) 


ECE1 


36 

OB 09 OA 


15 


2227 


DB . 


0BHr9,0AH*15H,37H* r(7) 


ECE6 


37 

2C OC OF 


39 


2228 


DB 


2CH>0CHr0FHf39H*38H 


K8> 


ECEB 


38 

2F 2E 3B 


10 


2229 


DB 


2FH,2EH>3BH*10H*30H 


>(9) 


ECFO 


30 

1C 00 ID 


IB 


2230 


DB 


1CH>0,1DH>1BH,3AH ?(A) 


ECF5 


3A 

IF OD OA 


IE 


2231 


DB 


lFH*0DH*0AH,lEHr2DH 


?(B) 


ECFA 


2D 

2B 2A 2F 


2D 


2232 


DB 


2BHr2AHj2FH*2DHr20H 


r(C) 


ECFF 


20 

30 31 01 


17 


2233 


DB 


30H,31H*01Hf17H*37H 


((D) 


ED04 


37 

2E 1A 11 


13 


2234 


DB 


2EHFlAH,llHrl3H,39H 


?(E) 


ED09 


39 

00 00 00 


3D 


2235 


DB 


0t0*0>3DH*33H ;<f> 




EDOE 


33 

03 00 00 


00 


2236 SHITBL; 


DB 


3t0*0*0f0 JSHIFT TABLE(O) 


ED13 


00 

OC 00 20 


09 


2237 


DB 


0CH*0>20H*9>1BH *<1) 




ED18 


IB 

58 5A 41 


51 


2238 


DB 


58H>5AHr41H*51H>21H i 


1(2) 


ED1D 


21 

43 44 53 


57 


2239 


DB 


43H>44Hf53H>57H*22H i 


f (3) 


ED22 


22 

46 52 45 


24 


2240 


DB 


46Hf52Hf45Hf24Hf23H i 


((4) 


ED27 


23 

42 56 47 


54 


2241 


DB 


42H»56Hf47Hf54Hr25H S 


((5) 


ED2C 


25 

4D 4E 48 


59 


2242 


DB 


4DHf4EHf48Hf59Hf26H i 


1(6) 


ED31 


26 

4B 49 4A 


55 


2243 


DB 


4BHf49Hf4AHf55Hf27H \ 


( (7) 


ED36 


27 

3C AC 4F 


29 


2244 


DB 


3CHf4CHf4FHf29Hf28H \ 


i(8) 


ED3B 


28 

3F 3E 2B 


50 


2245 


DB 


3FHf3EH,2BHf50Hf30H J 


( (9) 


ED40 


30 
~7C 60 7D 


7B 


2246 


DB 


7CHf60Hf7DHf7BHf2AH J 


((A) 


ED45 


2A 

7F OD OA 


7E 


2247 


DB 


7FHf0DHf0AHf7EHf3DH \ 


-(B) 


ED4A 


3D 

2B 2A 2F 


2D 


2248 


DB 


2BHf2AHf2FHf2DHf20H J 


((C) 


ED4F 


20 

30 31 01 


17 


2249 


DB 


30Hf31H,01Hf17Ht37H \ 


((D) 


ED54 


37 

2E 1A 11 


13 


2250 


DB 


2EHf1AHf11Hf13Hf39H \ 


((E) 


ED59 


39 

00 00 00 


3D 


2251 


DB 


0f0*0f3DH*33H ><F> 




ED5E 


33 

IB 00 00 


00 


2252 SLOTBL: 


DB 


IBHfOfOfOfO jshift/lc 


1CK TABLE<0) 
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00 














ED63 


OC 
IB 


00 


20 


OB 


2253 


DB 


OCHt 


ED68 


58 
31 


5A 


41 


51 


2254 


DB 


58H*, 


ED6D 


43 
32 


44 


53 


57 


2255 


DB 


43Hr 


ED72 


46 
33 


52 


45 


34 


2256 


DB 


46H, 


ED77 


42 
35 


56 


47 


54 


2257 


DB 


42H> 


ED7C 


4D 
36 


4E 


48 


59 


2258 


DB 


4DHf 


ED81 


4B 
37 


49 


4A 


55 


2259 


DB 


4BH> 


ED86 


2C 
38 


4C 


4F 


39 


2260 


DB 


2CH> 


ED8B 


2F 
30 


2E 


3B 


50 


2261 


DB 


2FH> 


ED90 


5C 
3A 


40 


5D 


5B 


2262 


DB 


5CH* 


ED95 


5F 
2D 


OD 


OA 


5E 


2263 


DB 


5FH> 


ED9A 


2B 
20 


2A 


2F 


2D 


2264 


DB 


2BHr 


EB9F 


30 
37 


31 


34 


38 


2265 


DB 


30Hf 


EDA4 


2E 
39 


32 


35 


36 


2266 


DB 


2EH, 


EDA9 


00 
33 


00 


00 


3D 


2267 


DB 


0*0, 


EDAE 


IB 
00 


00 


00 


00 


2268 UNSTBLt 


DB 


lBHr 


EDB3 


OC 

IB 


00 


20 


OB 


2269 


DB 


OCHf 


EDB8 


78 
31 


7A 


61 


71 


2270 


DB 


78H* 


EDBD 


63 
32 


64 


73 


77 


2271 


DB 


63Hr 


EDC2 


66 

33 


72 


65 


34 


2272 


DB 


66Hr 


EBC7 


62 
35 


76 


67 


74 


2273 


DB 


62Hf 


EDCC 


6D 
36 


6E 


68 


79 


2274 


DB 


6DH> 


EDD1 


6B 
37 


69 


6A 


75 


2275 


DB 


6BH> 


EBD6 


2C 
38 


6C 


6F 


39 

• 


2276 


DB' 


2CHf 


EDDB 


2F 
30 


2E 


3B 


70 


2277 


DB 


2FHf 


EBEO 


5C 
3A 


40 


5D 


5B 


2278 


DB 


5CHr 


EDE5 


5F 
2D 


OD 


OA 


5E 


2279 


DB 


" 5FH> 


EDEA. 


2B 
.20 


2A 


2F 


2D 


2280 


DB 


2BH, 


EDEF 


30 


31 


34 


38 


2281 


DB 


30Hf 
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0»20HrOBH* 1BH 5(1) 
5AH>41Hr51H»31H 5<2) 
44H>53H»57H>32H 5(3) 
52H>45H>34H»33H 5(4) 
56H»47H»54H>35H 5(5) 
4EH»48H»59H»36H 5 <6> 
49H>4AHt55Ht37H 5(7) 
4CH»4FH»39H»38H 5(8) 
2EH»3BH»50H>30H 5(9) 
40Hr5nH»5BH»3AH 5(A) 
0DHf0AH»5EHf2DH 5(B) 
2AHr2FH»2DH,20H 5(C) 
31H»34H»38Hr37H 5(D) 
32Hr35H*36Hr39H 5(E) 
0,3DHf33H 5(F) 
OfO»OfO 5UNSHIFTED TABLE(O) 
0>20H>0BH>1BH 5(1) 
7AH,61H,71H>31H 5(2) 
64H»73H,77H>32H 5(3) 
72H>65H>34H»33H 5(4) 
76H>67H>74H»35H *(5) 



6EH»68H»79Hr36H 

69H»6AH>75H>37H 

6CHr6FH»39H»38H 

2EH>3BHr70H>30H 

40H*5DH>5BH>3AH 

0DHf0AH>5EH»2DH, 

2AH>2FHr2DH,20H 

31H»34Hr38H»37H 



H6) 
(7) 
(8) 
(9) 
(A) 
(B) 
(C) 
(D) 
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2EHf32H*35Hf36Hf39H f(E) 
0f0f0f3DHf33H f(F) 





37 






EDF4 


2E 32 35 36 
39 


2282 


DB 


EDF9 


00 00 00 3D 

33 


2283 


DB 



EXIDY STANDARD MONITOR SOFTWARE 07/26/78 



USER DEFINABLE CHARACTER SET 



EDFE 




2285 


* 
* 


EDFE 




2286 


r 


EDFE 




2287 


* 
* 


EDFE 




2288 


*■ USER 


EDFE 




2289 


* 

* 


EDFE 




2290 


A 
* 


EDFE 




2291 


* 
* 




EDFE 


2292 


chrset: equ 


EDFE 


80 80 80 80 
80 80 80 80 


2293 


DB 


EE06 


40 40 40 40 
40 40 40 40 


2294 


DB 


EEOE 


20 20 20 20 
20 20 20 20 


2295 


DB 


EE16 


10 10 10 10 
10 10 10 10 


2296 


DB 


EE1E 


00 3C 7E FF 
FF 7E 3C 00 


2297 


DB 


EE26 


04 04 04 04 
04 04 04 04 


2298 


DB 


EE2E 


02 02 02 02 
02 02 02 02 


2299 


DB 


EE36 


01 01 01 01 
01 01 01 01 


2300 


DB 


EE3E 


00 3C 42 81 
81 42 3C 00 


2301 


DB 


EE46 


FF 00 00 00 
00 00 00 00 


2302 


DB 


EE4E 


00 FF 00 00 
00 00 00 00 


2303 


DB 


EE56 


00 00 FF 00 
00 00 00 00 


2304 


DB 


EE5E 


00 00 00 FF 
00 00 00 00 


2305 


DB 


EE66 


00 00 00 71 . 
BE 24 24 24 


2306 


DB 


EE6E 


81 42 24 18 
18 24 42 81 


2307 


DB 


EE76 


00 00 00 00 

01 06 08 08 


2308 


DB 


EE7E 


00 00 00 00 
CO 30 08 08 


2309 


DB 


EE86 


FF 80 80 80 
80 80 80 80 


2310 


DB 


EE8E 


FF 01 01 01 
01 01 01 01 


2311 


DB 


EE96 


FF FE FC F8 
FO EO CO 80 


2312 


DB 


EE9E 


FF 7F 3F IF 
OF 07 03 01 


2313 


DB 


EEA6 


00 00 00 00 # 
OF OF OF OF 


2314 


DB- 


EEAE 


00 00 00 00 
FO FO FO FO 


2315 


DB 


EEB6 


00 00 00 00 
FF 00 00 00 


2316 


DB 


EEBE 


10 38 7C FE 
FE 7C 10 38 


2317 


DB 



80H*80H*80H*80H*80H*80H*80H*80H 
40H*40H*40H*40H*40H*40H»40H*40H . 
20H*20H*20H*20H*20H*20H*20H*20H 
10H* 10H* 10H* 10H* 10H* 10H* 10H* 10H 
OOH* 3CH*7EH* OFFH* OFFH *7EH*3CH*00H 

4*4*4*4*4*4*4*4 

2*2*2*2*2*2*2*2 

1*1*1*1*1*1*1*1 

0*3CH*42H*81H*81H*42H*3CH*0 

OFFH* 0*0*0* 0*0*0*0 
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